Visual Basic 6 - aiuto codice

Avrei un problema
sto creando un programma client server ma quando clikko sul pulsante connetti due volte e mi appare...
errore di run-time (40020)
operazione non valida nello stato corrente

allora per ulteriori dettagli ho messo
Private Sub sockclient_error ecc.ecc.
MsgBox"errore di connessione" & description

ammacco f5 e mi appare il msgbox con scritto
errore di connessione!la socket non é connessa

non capisco
che devo fare?

ciao, se posti il codice vediamo un pò se c'è qualcosa che non va.

Sono sicuro, che sia un problema dovuto agli Stati

Posta il Codice che diamo un'occhiata.

Ma prima di postarlo, leggi queste mie due riga:

nel Command Button (CONNETTI)
inserisci:

if winsock.state = sckConnected Then
winsock.Connect ip, porta
End If

oppure

if winsock.State = sckConnected then
winsock.connect RemoteIp
winsock.connect remotePort
End if

Ti consiglio il primo!

Del resto, purché hai dall'altrà parte un Server, postato in:

Server.Listen

ovviamente con una porta (POSTATA) in ascolto!

Private Sub Form_Load()
sockclient.RemotePort = 2007
sockclient.Listen
Sockclient.Close
e altre cose che non c'entrano
Private Sub cmdconnetti_Clik()
txteventi.Text = "mi sto connettendo"
sockclient.Connect (Text1.Text, 2007
txteventi.Text = "connesso"
End Sub

postatemi il codice giusto

Private Sub Form_Load()
sockclient.RemotePort = 2007
'sockclient.Listen '/non ha senso aprire e poi chiudere!!
'Sockclient.Close
end sub


Private Sub cmdconnetti_Clik()
txteventi.Text = "mi sto connettendo"
sockclient.RemoteHost = Text1.Text
sockclient.Connect
txteventi.Text = "connesso"
End Sub