Winsock won't close {RESOLVED}

[vb_paladin]

I have a listbox containing user's computer names. When I click on a name, my single winsock control connects to that user's computer fine. But when I click on a different name, I have the code

Winsock1.Close: DoEvents

to close Winsock1 and enable it to connect to that user. But the event

Private Sub Winsock1_Close()

End Sub

never fires and therefore Winsock1 never closes. How can I make it close??