Private Sub Form_Load()
Text1.Text = "127.0.0.1"
Text2.Text = "[zu sendender String]"
Command1.Caption = "Connect"
Command2.Caption = "CD auf"
Command3.Caption = "CD zu"
Label1.Caption = "Connection Status ......"
Me.Caption = "Client"
'hier werden alle "Beschriftungen" vorgenommen
Label1.BorderStyle = 1
'hier wird das BorderStyle von Label1 geändert
End Sub
 
Private Sub Command1_Click()'und hier ist der fehler [u](Fehler beim 
' Kompilieren: Deklaration der Prozedur entspricht nicht der Beschreibung eines 
' Ergebnisses oder einer Prozedur mit dem selben namen)
Winsock1.Close 'Sicherstellen dass die Winsock zu ist
Winsock1.Connect Text1.Text, 1 'Winsock connected sich mit der angegebenen IP 
' und auf dem Port 1
End Sub
 
Private Sub Winsock1_Connect()
Label1.Caption = "connected" 'Status setzen (Labe1)
End Sub
 
Private Sub Winsock1_Close()
Label1.Caption = "disconnected" 'Status setzen (Labe1)
End Sub
 
Private Sub Winsock1_Error(ByVal Number As Integer, Description As String, _
  ByVal Scode As Long, ByVal Source As String, ByVal HelpFile As String, ByVal _
  HelpContext As Long, CancelDisplay As Boolean)
Winsock1.Close 'Winsock schließen
Label1.Caption = "Error ! ! !" 'Status setzen (Label1)
End Sub
 
Private Sub Command2_Click()
Winsock1.SendData "cdauf" 'Winsock sendet den String wenn sie connected ist"
End Sub
 
Private Sub Command3_Click()
Winsock1.SendData "cdzu" 'Winsock sendet den String wenn sie connected ist"
End Sub