Visual Basic 6 - MsgBox Con Controllo Winsock VB6

Ciao a tutti, ho un problema, ho creato un Client e Un Server che all' immissione del IP del computer (Server) nell' apposito spazio del Client e premendo il tasto connetti si colleghi in remoto con il pc (server) attraverso il controllo Winsock
Ho inserito un textbox (x inserire messaggio)e un commandbox (x inviare il messaggio) al Server, il problema che non funziona.

Sapete aiutarmi ??

Grazie del vostro aiuto.
______________________

Ecco il pezzo di codice per inviare il messaggio al Server:

Private Sub cmdmessaggio_Click()
Winsock1.SendData "messaggio"
End Sub

-----------------------

Ecco il pezzo di codice re ricevere il messaggio dal Client:

Private Sub Winsock1_DataArrival(ByVal bytesTotal As Long)
Dim dati As String
Winsock1.GetData dati

Select Case dati

Case "messaggio"
MsgBox Text2.Text, vbCritical, Error
End Select
End Sub

quello che hai scritto è giusto... ma non basta per capire dov'è il problema... prima di tutto sei sicuro che il client sia connesso al server?

Non dire "non mi funziona" spiega che succede e che errori ti da...

Quoto

Si sono connesso,....ma sul PC Del Server appare un errore con scritto in inglese "Request Object,...."

???

Ma scusa...non servirebbe che nel messaggio che invii ci sia scritto anke la text2? Oppure l'hai nel server?

PS: Hai visto in che parte di codice ti da l'errore?

apparte che sarebbe stato meglio scrivere tutto il messaggio di errore, a prima vista come dice littlehacker pare che nel server manchi la text2 oppure l'hai inserita ma gli hai dato un nome diverso

OK !!!

Grazie a tutti e due....

Il motivo che non funzionava è perchè il nome del textbox del server non era Text2.text ma Text3.text

Grazie ancora del vostro aiuto...

Ciao