Option Explicit On
 
Public Class Form1
 
   Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As _
     System.EventArgs) Handles    MyBase.Load
        ReadParams()
    End Sub
 
 
    Public Sub ReadParams()
        Dim args As String()
        args = Environment.GetCommandLineArgs()
 
        If args(1).ToLower = "run" Then
            MessageBox.Show("Anwendung wird gestartet")
        ElseIf args(0).ToLower = "norun" Then
            MessageBox.Show("Anwendung wird beendet")
            Environment.Exit(1)
        Else
            MessageBox.Show("Anwendung wird beendet")
            Environment.Exit(1)
        End If
    End Sub
End Calss