Problem mit Server (VB)

Ich habe mir einen Client in C gecodet und einen Server in VB.
Nur irgendwie kann der Client keine Verbindung zum Server herstellen....
Beim Client stimmt 100% alles nur beim VB Server bin ich mir nicht so sicher!
Hier der Code mal:

Private Sub Command1_Click()
On Error Resume Next
Winsock1.LocalPort = 2550
Winsock1.Listen
lblStatus.Caption = "Warte auf Verbindungen"
End Sub

Private Sub Command2_Click()
Unload Me
End Sub

Private Sub Winsock1_ConnectionRequest(ByVal requestID As Long)
If Winsock1.State <> sckClosed Then Winsock1.Close

Winsock1.Accept requestID
End Sub

Private Sub Winsock1_DataArrival(ByVal bytesTotal As Long)
DoEvents
Dim strData As String
Call Winsock1.GetData(strData$, vbString)
Text1.Text = strDate
MsgBox "Neue Daten wurden empfangen!!!", 64, "Daten:"
lblStatus.Caption = "Empfange Daten..."
End Sub

Falsches Forum

C++ Forumbot

Dieser Thread wurde von Moderator/in CMatt aus dem Forum WinAPI in das Forum Rund um die Programmierung verschoben.

Im Zweifelsfall bitte auch folgende Hinweise beachten:
C/C++ Forum :: FAQ - Sonstiges :: Wohin mit meiner Frage?

Dieses Posting wurde automatisch erzeugt.

Zeus

Client in C und Server in VB O_o seltsame Konstellation