Ok NVM. I found out that I should close the connection before connecting thats all...

VB Code:
  1. Private Sub cmdConnect_Click()

  2.     tcp.Close

  3.     tcp.Connect ServerIP, chatPort

  4. End Sub