'Visual Basic 2010 Debugging in Visual Studio Instrumenting Applications
Class Example3
    Public Shared Sub Main()
        Dim arguments As String() = Environment.GetCommandLineArgs()
        '
        Dim value1 As Integer = arguments(1)
        Dim value2 As Integer = arguments(2)
        Dim operation As String = arguments(3)
        '
        Select Case operation
            Case "/operation:sum"
                Console.WriteLine(value1 & " + " & value2 & " = " & _
                                  value1 + value2)
            Case "/operation:multiply"
                Console.WriteLine(value1 & " * " & value2 & " = " & _
                                  value1 * value2)
            Case Else
                Console.WriteLine("Unknown operation.")
        End Select
        '
        Console.ReadLine()
    End Sub
End Class
'Bezoek www.vbvoorbeelden.be voor meer Visual Basic voorbeelden.
'Copyright - De Wolf / vbvoorbeelden - 2003-2011 - Alle rechten voorbehouden.