Public Sub New()
        InitializeComponent()
        If Not ParamsHasCorrectFormat() Then
            MessageBox.Show("Anwendung wird beendet")
            Me.Close()
        End If
    End Sub
 
    Private Function ParamsHasCorrectFormat() As Boolean
        Dim args As String() = Environment.GetCommandLineArgs()
        Return (args.Length > 1 AndAlso args(1).ToLower = "run")
    End Function