try this:
Code:
Public Class Form1
Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
Dim args() As String = Environment.GetCommandLineArgs
If args.Length < 3 Then End
Dim result As Uri = Nothing
If Not Uri.TryCreate(args(2), UriKind.Absolute, result) Then End
ListBox1.Items.Add(result.ToString)
End Sub
End Class