Private Declare Function ShellExecute Lib "shell32.dll" Alias _
        "ShellExecuteA" (ByVal hwnd As Long, ByVal lpOperation _
        As String, ByVal lpFile As String, ByVal lpParameters _
        As String, ByVal lpDirectory As String, ByVal nShowCmd _
        As Long) As Long
 
Private Sub Form_Load()
    Call ShellExecute(Me.hwnd, "open", "C:\Programme\Windows\Programmd.exe", _
      "-run ""Windows.exe"" -env WindowsXPPro -direnv" & _
      """C:\DOKUME~1\ALLUSE~1\Anwendungsdaten\Einstellungen\CATEnv""", _
      "C:\Programme\Windows", 1)
End Sub

Psst, neues Spiel: IceWars, schnell anmelden!