关于RDPClient控件的问题

[zyh304]

我在VB6.0下用MsRdpClient控件，点击运行Connect后系统没有反应，代码如下：

Private Sub Command1_Click()
Dim m As New MsRdpClient4

m.DesktopHeight = 600
m.DesktopWidth = 800
m.ConnectingText = "Welcome"

m.Server = "192.168.1.8"
m.Domain = "keymet-test"
m.UserName = "e211a"

m.ColorDepth = 16

m.DisconnectedText = "886"
m.AdvancedSettings.BitmapPeristence = 1
m.AdvancedSettings.Compress = 1

m.Connect
End Sub

请问各位专家，为什么？

[smallcrocodile]

不明白

[teemai]

谢谢