Private Sub RemoteConnect(ByVal bolRDP As Boolean, ByVal strServerName As _
  String)
        Dim strPort As String = ""
        Dim strUser As String = ""
        Dim strPW As String = ""
        Dim strDomain As String = ""
 
        objRDP = New AxMSTSCLib.AxMsRdpClient2
 
        Select Case bolRDP
            Case True '*** RDP
 
                '*** Daten Laden:
                If LoadRDPServer(strServerName, _
                                strPort, _
                                 strUser, _
                                 strPW, _
                                 strDomain) = True Then
 
                    Me.tabControl1.TabPages.Add(strServerName, strServerName)
                    Me.tabControl1.TabPages(strServerName).Controls.Add(objRDP)
 
                    objRDP.Server = strServerName
                    objRDP.AdvancedSettings2.RDPPort = CInt(strPort)
                    objRDP.UserName = strUser
                    objRDP.Domain = strDomain
                    objRDP.AdvancedSettings2.ClearTextPassword = strPW
                    objRDP.Dock = DockStyle.Fill
 
                    objRDP.DesktopWidth = 1024
                    objRDP.DesktopHeight = 786
 
                    objRDP.Connect()
 
                End If
            Case False '*** VNC
 
        End Select
End Sub