Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As _
   System.EventArgs) Handles MyBase.Load
        ReadPara()
    End Sub
 
 
    Public Sub ReadPara()
        Dim args As String()
        args = Environment.GetCommandLineArgs()
        If args.Length > 1 Then
            MsgBox(args(1))
            If args(1).ToLower = "run" Then
                MessageBox.Show("Anwendung wird gestartet")
            ElseIf args(1).ToLower = "norun" Then
                MessageBox.Show("Anwendung wird beendet")
                Environment.Exit(1)
            Else
                MessageBox.Show("Anwendung wird beendet")
                Environment.Exit(1)
            End If
        End If
 
    End Sub