RDP2.ColorDepth = ComboBox4.Text

            RDP2.AdvancedSettings.allowBackgroundInput = True
            RDP2.AdvancedSettings.GrabFocusOnConnect = True
            RDP2.AdvancedSettings.BitmapPeristence = 1
            RDP2.AdvancedSettings.Compress = 1
            Me.RDP2.AdvancedSettings.RedirectDrives = True
            RDP2.Server = TextBox2.Text 
            RDP2.UserName = ComboBox1.SelectedItem
            Dim secured As IMsTscNonScriptable = DirectCast(RDP2.GetOcx(), IMsTscNonScriptable)
            RDP2.AdvancedSettings.ClearTextPassword = TextBox3.Text
            RDP2.Connect()
            RDP2.BringToFront()