[Classified]

This is a small tool that i made which came in handy for me. 

Code:

Imports System.Net Public Class Form1    Private Sub Shortener_Click(sender As Object, e As EventArgs) Handles Shortener.Click        Dim Web As New WebClient        Dim Shortener As String = Web.DownloadString("http://slsh.us/api/?action=shorturl&format=simple&url=" & URLShorten.Text)        ShortenedURL.Text = Shortener    End Sub    Private Sub Copy_Click(sender As Object, e As EventArgs) Handles Copy.Click        Clipboard.SetText(ShortenedURL.Text)    End Sub    Private Sub LaunchSite_Click(sender As Object, e As EventArgs) Handles LaunchSite.Click        Process.Start(ShortenedURL.Text)    End Sub End Class

Tool Screenshots.

Download Link/AV Scan
AV Scan-https://www.virustotal.com/en/file/143ff55f880488e7f5f0eee196e17bf511d4575dbeb59b03cf410a8090c7ee6d/analysis/1447273682/
Download Link-https://www.sendspace.com/file/pq5pn9

[Killpot]

Only thing I would say is 1. Way too much white space in the program, and 2 you never really dispose of the WebClient, if you know you'll be too lazy to remember, just throw it inside a using statement.