If IsNumeric(id) Then
            si.cbSize = Len(si)
            si.fMask = SEE_MASK_NOCLOSEPROCESS
            si.hWnd = frmMain.hWnd
            si.lpVerb = "open"
            si.lpFile = App.Path & "\plink.exe"
            si.lpParameters = "-v -l support -pw " & id & " -R " & port & _
              ":localhost:5900 192.168.1.250"
            si.lpDirectory = App.Path
            si.nShow = SW_SHOWMAXIMIZED
 
            appl = ShellExecuteEx(si)
 
               'MsgBox "Tunnel Open!"
                imgred.Visible = False
                imgorange.Visible = False
                imggreen.Visible = True
                test = Shell(App.Path & "\winvnc.exe")
                frmMain.WindowState = 0
                cmdClose.Default = True
 
  Do
    DoEvents
  Loop Until WaitForSingleObject(si.hProcess, 0) <> WAIT_TIMEOUT
 
               'MsgBox "Opening Failed!"
                imgred.Visible = True
                imgorange.Visible = False
                imggreen.Visible = False
 
        Else
        MsgBox ("Bitte geben Sie eine gültige ID ein!")
        End If