Module Module1
Sub Main(ByVal cmdArgs() As String)
If Environment.GetCommandLineArgs.Length > 0 Then
For Each strArg As String In Environment.GetCommandLineArgs
'Process the arguments here.
Console.WriteLine(strArg)
Next strArg
End If
End Sub
End Module
main