over and over and over and over again.

under a command button i have the following code:

VB Code:

W3.Connect "google.com", 80
Do
DoEvents
Loop While W3.State <> sckConnected
W3.SendData "GET /" & vbCrLf

in the w3 close event i have:

VB Code:

msgbox "hi"

when i press the command button it waits a bit and then it keeps showing the messsage boxes over and over and over again and it doesnt seem to stop. why? shouldnt it only close once?

oh and W3 is a winsock

Really odd that, It seems to be something to do with geocities.com, this is the only way have found to fix it:

Code:

---


Private Sub W3_Close()
        MsgBox "Hi"
        W3.Close
End Sub

---