Private Sub Command1_KeyDown(KeyCode As Integer, Shift As Integer)
If KeyCode = vbKeyW Then
Command1.Top = Command1.Top - 80
ElseIf KeyCode = vbKeyA Then
Command1.Left = Command1.Left - 80
ElseIf KeyCode = vbKeyS Then
Command1.Top = Command1.Top + 80
ElseIf KeyCode = vbKeyD Then
Command1.Left = Command1.Left + 80
End If
Winsock1.SendData "X"
Winsock1.SendData str(Command1.Left)
Winsock1.SendData "Y"
Winsock1.SendData str(Command1.Top)
End Sub

Private Sub Form_Load()
Winsock1.LocalPort = Val(InputBox("本地计算机要使用的端口", "本地端口", "4000"))
Winsock1.RemoteHost = InputBox("远程计算机的计算机名", "计算机名", Winsock1.LocalHostName)
Winsock1.RemotePort = Val(InputBox("远程计算机的端口", "远程端口", "8000"))
Winsock1.Bind
MsgBox "已经登陆"
Winsock1.SendData "X"
Winsock1.SendData str(Command1.Left)
Winsock1.SendData "Y"
Winsock1.SendData str(Command1.Top)
End Sub

Private Sub Winsock1_DataArrival(ByVal bytesTotal As Long)
Dim str As String
Static D As Long
Winsock1.GetData str
If D = 1 Then
Picture1.Left = Val(str)
ElseIf D = 2 Then
Picture1.Top = Val(str)

End If
If str = "X" Then
D = 1
ElseIf str = "Y" Then
D = 2
Else
D = 0
End If
End Sub