Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As _
   System.EventArgs) Handles MyBase.Load
        Dim args() As String = Environment.GetCommandLineArgs
        If args.Length = 1 Then
            Me.Text = "Keine Argumente angegeben"
        Else : Me.Text = args(1)
        End If
    End Sub

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