Das Forum

Code: Alles auswählen

Dim aryCmdArgs As Array = Environment.GetCommandLineArgs()
Dim i As Integer

For i = 1 To aryCmdArgs.Length - 1
   Select Case aryCmdArgs(i).ToString.ToLower
      Case "-noexitonclosebutton"
         bolNoExitOnCloseButton = True
      End Select
Next