Dim CommandLine As System.Collections.ObjectModel.ReadOnlyCollection(Of _
    String)
  CommandLine = e.CommandLine
  If CommandLine.Count > 0 Then
     Dim cLine1 As String = cNoNull(CommandLine(0))
      If cLine1.Length > 0 Then
      frmMenue.verteile_big(cLine, True)
   End If
 End If