Private Sub MyApplication_Startup(ByVal sender As Object, ByVal e As _
  Microsoft.VisualBasic.ApplicationServices.StartupEventArgs) Handles Me.Startup
            If e.CommandLine.Count = 0 Then
                MsgBox("KeineArgumente angegeben")
                e.Cancel = True
            Else
                'argumente auswerten
            End If
        End Sub

Wenn alle Stricke rei?en, dann h?ng ich mich auf. ~ Karl Kraus