sendcomplete yet not firing!!

[pannam]

this is the only way i can think of using sendcomplete to send data via winsock.my programming language is vb 6 . here is my code

public SendComplete as boolean
 
Public Sub WaitForWinsock()
   
While Not SendComplete
      
         DoEvents
 
    Wend
End Sub
 
Private Sub sock1_SendComplete()
 
 SendComplete = True
 
End Sub
 
private sub CmdSend_click()'an example of how i send data
 dim strData as string
 strData = "Hello"
 
sendComplete = False
 
winsock.senddata strData
 
WaitForWinsock
 
End Sub

is there anybetter way to code ..? coz my data are not being send properly