Private Sub CmdSend_Click()
If txtNick = "" Then
txtErrors = "Missing Nickname"
Else
LstChat.AddItem txtNick.Text & ":" & " " & txtChat.Text
txtChat.Text = ""
txtErrors = ""
End If
End Sub

Private Sub Label1_Click()
Winsock1.RemoteHostIP
Winsock1.LocalPort
Winsock1.Connect
End Sub