VB 远控问题

谁能帮我改下代码

服务端（远程）
Private Sub Form_Load()
Ws.LocalPort = 1001'监听端口
Ws.Listen
End Sub

Private Sub Ws_Close()
Ws.Listen
End Sub

Private Sub Ws_ConnectionRequest(ByVal requestID As Long)
If Ws.State <> sckClosed Then Ws.Close
Ws.Accept requestID
End Sub

Private Sub Ws_DataArrival(ByVal bytesTotal As Long)
Dim tmp As String
Ws.GetData tmp, vbString
Select Case tmp
Case "Command=1"
MsgBox "关机程序"
Case "Command=2"
MsgBox "重启程序"
End Select
End Sub

客户端(本地)
Private Sub Form_Load()
Wc.RemoteHost = "127.0.0.1"'远程IP地址
Wc.RemotePort = 1001'远程端口
Wc.Connect
End Sub

Private Sub Command1_Click()
Wc.SendData "Command=1"'发送关机命令
End Sub

Private Sub Command2_Click()
Wc.SendData "Command=2

vb问题????? VB问题~~~ vb问题!!!!!!!!!!!! VB问题！！！！！！！ VB问题.... Vb问题！ VB问题 ```````` VB问题[。。。] VB问题,,,, vb 问题