Private Sub Form_Load()
  Dim ServerIP As String
 
  ' Command1 deaktivieren
  Command1.Enabled = False
 
  ' Die IP-Adresse oder Computer-Name des Servers
  ServerIP = "MyComputer"
 
  ' 1. Parameter: Computername /-ip
  ' 2. Parameter: Portnummer
  Winsock1.Connect ServerIP, 12345
End Sub
' Wenn eine direkte Verbindung aufgebaut ist
Private Sub Winsock1_Connect()
  ' Jezt können wir mit dem Button die Nachricht senden
  Command1.Enabled = True
End Sub
Private Sub Command1_Click()
  ' Nachricht an Server senden
  Winsock1.SendData "Hallo Server!"
End Sub
' Wenn die Verbindung geschlossen wird
Private Sub Winsock1_Close()
  ' Ohne Verbindung kann man auch keine
  ' Nachrichten senden: Button Aus
  Command1.Enabled = False
End Sub