Binaryworld - How to pass command line arguments to application? ... [ VB.net -> Application ]

' **********************************************************************
' * Comments     : Write applications that take arguments
' *
' * Write applications that take arguments
' *
' **********************************************************************
Module Module1

' the "official" entry point
Sub Main()
   ' call the Main with arguments
   Main(Environment.GetCommandLineArgs())
End Sub

' the "real" Main procedure
Private Sub Main(ByVal args() As String)
   ' suppose that we expect two arguments, but there is always an
   ' extra argument that contains the EXE filename
   If args Is Nothing OrElse args.Length <> 3 Then
     Console.WriteLine("Syntax error.")
   Else
     ' use the arguments args(1) and args(2)
     ' ...
   End If
End Sub

End Module