how to send message thru winsock

i have this code

VB Code:

Winsock1.Bind 1027 
Winsock1.RemoteHost = Label1.Caption    'computer name
Winsock1.RemotePort = 7           
Winsock1.SendData Text1.Text

but it has an error like "invalid operation at current state"

before the bind

"Winsock1.bind 1027"

write

"Winsock1.close"

Credit to pino :D