http://www.msnrules.com/emoticons/onion/onion18.gif
Printable View
WTF :psurprise:
http://www.msnrules.com/emoticons/onion/onion47.gif huohohohoho.....
Quote:
private sub cmdserver_click ( )
Dim ServerIP as string
Dim tunggu as string
tunggu = "---sedang menunggu koneksi---"
serverIP = wschat.localIP
txtpesanmasuk.text = " "
if textnama.text = " " then
msgbox "Anda belum memasukkan nama !" ,
vbCritical, "Perhatian !"
txtnama.SetFocus
Exit Sub
End If
frmchat.caption = "IP Server : " & serverIP
wsChat.close
wsChat.LocalPort = 10200
wsChat.Listen
cmdTutup.Enabled = true
cmdServer.Enabled = false
cmdClient.Enabled = false
txtNama.Enabled = false
txtpesanmasuk.Text = txtpesanmasuk.Text & vbCrLf & tunggu
End Sub
:perr:
baru pembuka~
:llaugh::pone:
mau copas smua gak yah ?
:perr:
:philarious:
gak ah nanti malah diinprak~
:psad:
dih dimtjod ahli copas
copas dari VB gw... :perr:
sudah abis ene bkin program chat~
ada singkatan, tiba2 kepikiran
MM MI = Mello Mikan Makan Ikan
:powh:
WTH is that? :perr::pone:
g taw
ada di otak drpd inget2 tumpahin sini
ga insult itu~
ya gak ?
:phmm:
wew
masa insult?