WinSock Client connection

Hej Alle!

Jeg har et lille problem...

Jeg er ved at lave et lille klient/server program og problemet ligger indtil videre på klient siden.

Meningen med nedenstående kode er at når der bliver trykket på en knap, så opretter klienten en forbindelse til serveren og sender en tekststreng afsted.

Problemmet er at det tager lidt tid at oprette en forbindelse og hvis jeg fyrer det hele af på et par linier så får jeg en fejl der siger " Forbindelsen ikke klar endnu" (eller noget i den stil).

Nu har jeg så lavet en smart lille løkke der kører indtil at forbindelsen er klar (indtil state = 7 (connected)), MEN det der sker at state aldrig bliver 7 og løkken kører derfor uendeligt...

HVAD ER PROBLEMET???

PS: har prøvet state 1 (open) uden resultat

Mvh,

Daniel

---------------------------------------------------
Private Sub cmdConnect_Click()
Dim txtSMS As String, connection_state As Integer
Dim run_loop As Integer

tcpclient.RemoteHost = "192.168.1.2"
tcpclient.RemotePort = 1001
tcpclient.Connect

run_loop = 0
Do While run_loop = 0
    connection_state = tcpclient.State
    If connection_state = 7 Then
        txtSMS = "999999999;Hej Med Dig"
        tcpclient.SendData txtSMS
        Exit Do
    End If   
Loop

End Sub
---------------------------------------------