All pastes #248764 Raw Edit

XCoast Chat

public text v1 · immutable
#248764 ·published 2006-11-14 23:47 UTC
rendered paste body
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