Di balik pembuatan sand king style flooder

1. jalankan program vb
2. atur dan namai semua tool yang yang ingin di pake
3. dan ini codenya

[code]Dim FirstX, FirstY As Integer
Dim a As String
Dim b As String
Dim c As String
Dim d As String
Dim e As String
Dim f As String
Dim g As String
Dim h As String
Dim i As String
Dim j As String
Private Function pl(lt As String)
If a = "" Then
a = lt
Call barrerbas
ElseIf b = "" Then
b = lt
ElseIf c = "" Then
c = lt
ElseIf d = "" Then
d = lt
ElseIf e = "" Then
e = lt
ElseIf f = "" Then
f = lt
ElseIf g = "" Then
g = lt
ElseIf h = "" Then
h = lt
ElseIf i = "" Then
i = lt
ElseIf j = "" Then
j = lt
Barrer
End If
entry.Text = entry.Text & lt
End Function
Private Sub bs_Click()
entry.Text = ""
If j <> "" Then
j = ""
entry.Text = a + b + c + d + e + f + g + h + i
ElseIf i <> "" Then
i = ""
entry.Text = a + b + c + d + e + f + g + h
ElseIf h <> "" Then
h = ""
entry.Text = a + b + c + d + e + f + g
ElseIf g <> "" Then
g = ""
entry.Text = a + b + c + d + e + f
ElseIf f <> "" Then
f = ""
entry.Text = a + b + c + d + e
ElseIf e <> "" Then
e = ""
entry.Text = a + b + c + d
ElseIf d <> "" Then
d = ""
entry.Text = a + b + c
ElseIf c <> "" Then
c = ""
entry.Text = a + b
ElseIf b <> "" Then
b = ""
entry.Text = a
ElseIf a <> "" Then
a = ""
barrerbas
End If
End Sub
Private Sub ca_Click()
Call pl("a")
End Sub
Private Sub cb_Click()
Call pl("b")
End Sub
Private Sub cc_Click()
Call pl("c")
End Sub
Private Sub cd_Click()
Call pl("d")
End Sub
Private Sub ce_Click()
Call pl("e")
End Sub
Private Sub cf_Click()
Call pl("f")
End Sub
Private Sub cg_Click()
Call pl("g")
End Sub
Private Sub ch_Click()
Call pl("h")
End Sub
Private Sub ci_Click()
Call pl("i")
End Sub
Private Sub cj_Click()
Call pl("j")
End Sub
Private Sub cl_Click()
a = ""
b = ""
c = ""
d = ""
e = ""
f = ""
g = ""
h = ""
i = ""
j = ""
entry.Text = ""
barrerbas
Barrer
End Sub

Private Sub Command1_Click()
Call pl("��")
Call pl("��")
Call pl("��")
Call pl("��")
Call pl("��")
Call pl("��")
Call pl("��")
Call pl("��")
Timer1.Enabled = True

End Sub

Private Sub Command2_Click()
Call pl("��")
Call pl("��")
Call pl("��")
Call pl("��")
Call pl("��")
Call pl("��")
Call pl("��")
Call pl("��")
Timer1.Enabled = True

End Sub

Private Sub elf_Click()
Call pl("S")
Call pl("A")
Call pl("N")
Call pl("D")
Call pl(" ")
Call pl("K")
Call pl("I")
Call pl("N")
Call pl("G")
tim
End Sub
Private Sub entry_MouseMove(Button As Integer, Shift As Integer, x As Single, y As Single)
entry.BackColor = &HFF8080
entry.BackColor = &H800000
End Sub
Private Sub fy_Click()
Call pl("f")
Call pl("u")
Call pl("c")
Call pl("k")
Call pl(" ")
Call pl("y")
Call pl("u")
Call pl("o")
Call pl(" ")
Call pl("A")
Call pl("L")
Call pl("L")
tim
End Sub
Private Sub info_Click()
MsgBox
"sand king style flooder, " + vbCrLf + "E-mail and mig33 id" + vbCrLf +
"sand.king@mig33.com" + vbCrLf + vbCrLf + "To use, Select Pre-make text
or" + vbCrLf + "select letter and click send then go" + vbCrLf + "in
your msn window and let flooder Do the job!", vbInformation + vbOKOnly
+ vbMsgBoxSetForeground, "About sand.king style flooder."
End Sub
Private Sub k_Click()
Call pl("k")
End Sub
Private Sub l_Click()
Call pl("l")
End Sub
Private Sub lmao_Click()
Call pl("���")
Call pl("���")
Call pl("���")
Call pl("���")
tim
End Sub
Private Sub lol_Click()
Call pl("/")
Call pl("m")
Call pl("e")
tim
End Sub
Private Sub m_Click()
Call pl("m")
End Sub
Private Sub n_Click()
Call pl("n")
End Sub
Private Sub noob_Click()
Call pl("������")
Call pl("������")
Call pl("���")
Call pl("���")
tim
End Sub
Private Sub o_Click()
Call pl("o")
End Sub
Private Sub p_Click()
Call pl("p")
End Sub
Private Sub q_Click()
Call pl("q")
End Sub
Private Sub r_Click()
Call pl("r")
End Sub
Private Sub rofl_Click()
Call pl("/")
Call pl("f")
Call pl("o")
Call pl("r")
Call pl("t")
Call pl("u")
Call pl("n")
Call pl("e")
Timer1.Enabled = True
End Sub
Private Sub s_Click()
Call pl("s")
End Sub
Private Sub send_Click()
tim
End Sub
Private Sub space_Click()
Call pl(" ")
End Sub
Private Sub stfu_Click()
Call pl("/")
Call pl("r")
Call pl("o")
Call pl("l")
Call pl("l")
Timer1.Enabled = True
End Sub
Private Sub t_Click()
Call pl("t")
End Sub
Private Sub Timer1_Timer()
Timer2.Enabled = True
Timer1.Enabled = False
End Sub
Private Sub Timer2_Timer()
Call check
End Sub
Private Sub u_Click()
Call pl("u")
End Sub
Private Sub v_Click()
Call pl("v")
End Sub
Private Sub w_Click()
Call pl("w")
End Sub
Private Sub wtf_Click()
Call pl("/")
Call pl("8")
Call pl("b")
Call pl("a")
Call pl("l")
Call pl("l")
Timer1.Enabled = True
End Sub
Private Sub x_Click()
Call pl("x")
End Sub
Private Sub y_Click()
Call pl("y")
End Sub
Private Sub z_Click()
Call pl("z")
End Sub
Private Function Sa()
SendKeys ":S:S:S:S:S:S:S:S"
SendKeys "+~"
SendKeys ":S:S:S:heart:@:S:S:S"
SendKeys "+~"
SendKeys ":S:S:heart:S:S:heart:S:S"
SendKeys "+~"
SendKeys ":S:S:heart:@@:S:S"
SendKeys "+~"
SendKeys ":S:S:heart:S:S:heart:S:S"
SendKeys "+~"
SendKeys ":S:S:heart:S:S:heart:S:S"
SendKeys "+~"
SendKeys ":S:S:S:S:S:S:S:S"
SendKeys "~"
End Function

Private Function sb()
SendKeys ":S:S:S:S:S:S:S:S"
SendKeys "+~"
SendKeys ":S:S:heart:@:heart:S:S:S"
SendKeys "+~"
SendKeys ":S:S:heart:S:S:heart:S:S"
SendKeys "+~"
SendKeys ":S:S:heart:@:heart:S:S:S"
SendKeys "+~"
SendKeys ":S:S:heart:S:S:heart:S:S"
SendKeys "+~"
SendKeys ":S:S:heart:@:heart:S:S:S"
SendKeys "+~"
SendKeys ":S:S:S:S:S:S:S:S"
SendKeys "~"
End Function
Private Function sc()
SendKeys ":S:S:S:S:S:S:S:S"
SendKeys "+~"
SendKeys ":S:S:heart:@@:S:S"
SendKeys "+~"
SendKeys ":S:S:heart:S:S:S:S:S"
SendKeys "+~"
SendKeys ":S:S:heart:S:S:S:S:S"
SendKeys "+~"
SendKeys ":S:S:heart:S:S:S:S:S"
SendKeys "+~"
SendKeys ":S:S:heart:@@:S:S"
SendKeys "+~"
SendKeys ":S:S:S:S:S:S:S:S"
SendKeys "~"
End Function
Private Function sd()
SendKeys ":S:S:S:S:S:S:S:S"
SendKeys "+~"
SendKeys ":S:S:heart:@:heart:S:S:S"
SendKeys "+~"
SendKeys ":S:S:heart:S:S:heart:S:S"
SendKeys "+~"
SendKeys ":S:S:heart:S:S:heart:S:S"
SendKeys "+~"
SendKeys ":S:S:heart:S:S:heart:S:S"
SendKeys "+~"
SendKeys ":S:S:heart:@:heart:S:S:S"
SendKeys "+~"
SendKeys ":S:S:S:S:S:S:S:S"
SendKeys "~"
End Function
Private Function se()
SendKeys ":S:S:S:S:S:S:S:S"
SendKeys "+~"
SendKeys ":S:S:heart:@@:S:S"
SendKeys "+~"
SendKeys ":S:S:heart:S:S:S:S:S"
SendKeys "+~"
SendKeys ":S:S:heart:@:heart:S:S:S"
SendKeys "+~"
SendKeys ":S:S:heart:S:S:S:S:S"
SendKeys "+~"
SendKeys ":S:S:heart:@@:S:S"
SendKeys "+~"
SendKeys ":S:S:S:S:S:S:S:S"
SendKeys "~"
End Function
Private Function sf()
SendKeys ":S:S:S:S:S:S:S:S"
SendKeys "+~"
SendKeys ":S:S:heart:@@:S:S"
SendKeys "+~"
SendKeys ":S:S:heart:S:S:S:S:S"
SendKeys "+~"
SendKeys ":S:S:heart:@:heart:S:S:S"
SendKeys "+~"
SendKeys ":S:S:heart:S:S:S:S:S"
SendKeys "+~"
SendKeys ":S:S:heart:S:S:S:S:S"
SendKeys "+~"
SendKeys ":S:S:S:S:S:S:S:S"
SendKeys "~"
End Function
Private Function sg()
SendKeys ":S:S:S:S:S:S:S:S"
SendKeys "+~"
SendKeys ":S:S:S:heart:@:heart:S:S"
SendKeys "+~"
SendKeys ":S:S:heart:S:S:S:S:S"
SendKeys "+~"
SendKeys ":S:S:heart:S:heart:@:S:S"
SendKeys "+~"
SendKeys ":S:S:heart:S:S:heart:S:S"
SendKeys "+~"
SendKeys ":S:S:S:heart:@:heart:S:S"
SendKeys "+~"
SendKeys ":S:S:S:S:S:S:S:S"
SendKeys "~"
End Function
Private Function sh()
SendKeys "+~"
SendKeys ":S:S:S:S:S:S:S:S"
SendKeys "+~"
SendKeys ":S:S:heart:S:S:heart:S:S"
SendKeys "+~"
SendKeys ":S:S:heart:S:S:heart:S:S"
SendKeys "+~"
SendKeys ":S:S:heart:@@:S:S"
SendKeys "+~"
SendKeys ":S:S:heart:S:S:heart:S:S"
SendKeys "+~"
SendKeys ":S:S:heart:S:S:heart:S:S"
SendKeys "+~"
SendKeys ":S:S:S:S:S:S:S:S"
SendKeys "~"
End Function
Private Function si()
SendKeys ":S:S:S:S:S:S:S:S"
SendKeys "+~"
SendKeys ":S:S:heart:@:heart:S:S:S"
SendKeys "+~"
SendKeys ":S:S:S:heart:S:S:S:S"
SendKeys "+~"
SendKeys ":S:S:S:heart:S:S:S:S"
SendKeys "+~"
SendKeys ":S:S:S:heart:S:S:S:S"
SendKeys "+~"
SendKeys ":S:S:heart:@:heart:S:S:S"
SendKeys "+~"
SendKeys ":S:S:S:S:S:S:S:S"
SendKeys "~"
End Function
Private Function sj()
SendKeys ":S:S:S:S:S:S:S:S"
SendKeys "+~"
SendKeys ":S:S:S:S:S:heart:S:S"
SendKeys "+~"
SendKeys ":S:S:S:S:S:heart:S:S"
SendKeys "+~"
SendKeys ":S:S:S:S:S:heart:S:S"
SendKeys "+~"
SendKeys ":S:S:heart:S:S:heart:S:S"
SendKeys "+~"
SendKeys ":S:S:S:heart:@:S:S:S"
SendKeys "+~"
SendKeys ":S:S:S:S:S:S:S:S"
SendKeys "~"
End Function
Private Function sk()
SendKeys ":S:S:S:S:S:S:S:S"
SendKeys "+~"
SendKeys ":S:S:heart:S:S:heart:S:S"
SendKeys "+~"
SendKeys ":S:S:heart:S:heart:S:S:S"
SendKeys "+~"
SendKeys ":S:S:heart:@:S:S:S:S"
SendKeys "+~"
SendKeys ":S:S:heart:S:heart:S:S:S"
SendKeys "+~"
SendKeys ":S:S:heart:S:S:heart:S:S"
SendKeys "+~"
SendKeys ":S:S:S:S:S:S:S:S"
SendKeys "~"
End Function
Private Function sl()
SendKeys ":S:S:S:S:S:S:S:S"
SendKeys "+~"
SendKeys ":S:S:heart:S:S:S:S:S"
SendKeys "+~"
SendKeys ":S:S:heart:S:S:S:S:S"
SendKeys "+~"
SendKeys ":S:S:heart:S:S:S:S:S"
SendKeys "+~"
SendKeys ":S:S:heart:S:S:S:S:S"
SendKeys "+~"
SendKeys ":S:S:heart:@@:S:S"
SendKeys "+~"
SendKeys ":S:S:S:S:S:S:S:S"
SendKeys "~"
End Function
Private Function sm()
SendKeys ":S:S:S:S:S:S:S:S"
SendKeys "+~"
SendKeys ":S:S:heart:S:S:S:heart:S"
SendKeys "+~"
SendKeys ":S:S:heart:@:S:heart:@:S"
SendKeys "+~"
SendKeys ":S:S:heart:S:heart:S:heart:S"
SendKeys "+~"
SendKeys ":S:S:heart:S:S:S:heart:S"
SendKeys "+~"
SendKeys ":S:S:heart:S:S:S:heart:S"
SendKeys "+~"
SendKeys ":S:S:S:S:S:S:S:S"
SendKeys "~"
End Function
Private Function sn()
SendKeys ":S:S:S:S:S:S:S:S"
SendKeys "+~"
SendKeys ":S:S:heart:S:S:S:heart:S"
SendKeys "+~"
SendKeys ":S:S:heart:@:S:S:heart:S"
SendKeys "+~"
SendKeys ":S:S:heart:S:heart:S:heart:S"
SendKeys "+~"
SendKeys ":S:S:heart:S:S:heart:@:S"
SendKeys "+~"
SendKeys ":S:S:heart:S:S:S:heart:S"
SendKeys "+~"
SendKeys ":S:S:S:S:S:S:S:S"
SendKeys "~"
End Function
Private Function so()
SendKeys ":S:S:S:S:S:S:S:S"
SendKeys "+~"
SendKeys ":S:S:S:heart:@:S:S:S"
SendKeys "+~"
SendKeys ":S:S:heart:S:S:heart:S:S"
SendKeys "+~"
SendKeys ":S:S:heart:S:S:heart:S:S"
SendKeys "+~"
SendKeys ":S:S:heart:S:S:heart:S:S"
SendKeys "+~"
SendKeys ":S:S:S:heart:@:S:S:S"
SendKeys "+~"
SendKeys ":S:S:S:S:S:S:S:S"
SendKeys "~"
End Function
Private Function sp()
SendKeys ":S:S:S:S:S:S:S:S"
SendKeys "+~"
SendKeys ":S:S:heart:@:heart:S:S:S"
SendKeys "+~"
SendKeys ":S:S:heart:S:S:heart:S:S"
SendKeys "+~"
SendKeys ":S:S:heart:@:heart:S:S:S"
SendKeys "+~"
SendKeys ":S:S:heart:S:S:S:S:S"
SendKeys "+~"
SendKeys ":S:S:heart:S:S:S:S:S"
SendKeys "+~"
SendKeys ":S:S:S:S:S:S:S:S"
SendKeys "~"
End Function
Private Function sq()
SendKeys ":S:S:S:S:S:S:S:S"
SendKeys "+~"
SendKeys ":S:S:S:heart:@:heart:S:S"
SendKeys "+~"
SendKeys ":S:S:heart:S:S:S:heart:S"
SendKeys "+~"
SendKeys ":S:S:heart:S:S:S:heart:S"
SendKeys "+~"
SendKeys ":S:S:heart:S:S:heart:@:S"
SendKeys "+~"
SendKeys ":S:S:S:heart:@@:S"
SendKeys "+~"
SendKeys ":S:S:S:S:S:S:S:S"
SendKeys "~"
End Function
Private Function sr()
SendKeys ":S:S:S:S:S:S:S:S"
SendKeys "+~"
SendKeys ":S:S:heart:@@:S:S"
SendKeys "+~"
SendKeys ":S:S:heart:S:S:heart:S:S"
SendKeys "+~"
SendKeys ":S:S:heart:@@:S:S"
SendKeys "+~"
SendKeys ":S:S:heart:S:heart:S:S:S"
SendKeys "+~"
SendKeys ":S:S:heart:S:S:heart:S:S"
SendKeys "+~"
SendKeys ":S:S:S:S:S:S:S:S"
SendKeys "~"
End Function
Private Function ss()
SendKeys ":S:S:S:S:S:S:S:S"
SendKeys "+~"
SendKeys ":S:S:S:heart:@:heart:S:S"
SendKeys "+~"
SendKeys ":S:S:heart:S:S:S:S:S"
SendKeys "+~"
SendKeys ":S:S:S:heart:@:S:S:S"
SendKeys "+~"
SendKeys ":S:S:S:S:S:heart:S:S"
SendKeys "+~"
SendKeys ":S:S:heart:@:heart:S:S:S"
SendKeys "+~"
SendKeys ":S:S:S:S:S:S:S:S"
SendKeys "~"
End Function
Private Function st()
SendKeys ":S:S:S:S:S:S:S:S"
SendKeys "+~"
SendKeys ":S:S:heart:@@:heart:S"
SendKeys "+~"
SendKeys ":S:S:S:S:heart:S:S:S"
SendKeys "+~"
SendKeys ":S:S:S:S:heart:S:S:S"
SendKeys "+~"
SendKeys ":S:S:S:S:heart:S:S:S"
SendKeys "+~"
SendKeys ":S:S:S:S:heart:S:S:S"
SendKeys "+~"
SendKeys ":S:S:S:S:S:S:S:S"
SendKeys "~"
End Function
Private Function su()
SendKeys ":S:S:S:S:S:S:S:S"
SendKeys "+~"
SendKeys ":S:S:heart:S:S:heart:S:S"
SendKeys "+~"
SendKeys ":S:S:heart:S:S:heart:S:S"
SendKeys "+~"
SendKeys ":S:S:heart:S:S:heart:S:S"
SendKeys "+~"
SendKeys ":S:S:heart:S:S:heart:S:S"
SendKeys "+~"
SendKeys ":S:S:heart:@@:S:S"
SendKeys "+~"
SendKeys ":S:S:S:S:S:S:S:S"
SendKeys "~"
End Function
Private Function sv()
SendKeys ":S:S:S:S:S:S:S:S"
SendKeys "+~"
SendKeys ":S:S:heart:S:S:S:heart:S"
SendKeys "+~"
SendKeys ":S:S:heart:S:S:S:heart:S"
SendKeys "+~"
SendKeys ":S:S:heart:S:S:S:heart:S"
SendKeys "+~"
SendKeys ":S:S:S:heart:S:heart:S:S"
SendKeys "+~"
SendKeys ":S:S:S:S:heart:S:S:S"
SendKeys "+~"
SendKeys ":S:S:S:S:S:S:S:S"
SendKeys "~"
End Function
Private Function sw()
SendKeys ":S:S:S:S:S:S:S:S"
SendKeys "+~"
SendKeys ":S:S:heart:S:S:S:heart:S"
SendKeys "+~"
SendKeys ":S:S:heart:S:heart:S:heart:S"
SendKeys "+~"
SendKeys ":S:S:heart:S:heart:S:heart:S"
SendKeys "+~"
SendKeys ":S:S:heart:S:heart:S:heart:S"
SendKeys "+~"
SendKeys ":S:S:S:heart:@:heart:S:S"
SendKeys "+~"
SendKeys ":S:S:S:S:S:S:S:S"
SendKeys "~"
End Function
Private Function sx()
SendKeys ":S:S:S:S:S:S:S:S"
SendKeys "+~"
SendKeys ":S:S:heart:S:S:S:heart:S"
SendKeys "+~"
SendKeys ":S:S:S:heart:S:heart:S:S"
SendKeys "+~"
SendKeys ":S:S:S:S:heart:S:S:S"
SendKeys "+~"
SendKeys ":S:S:S:heart:S:heart:S:S"
SendKeys "+~"
SendKeys ":S:S:heart:S:S:S:heart:S"
SendKeys "+~"
SendKeys ":S:S:S:S:S:S:S:S"
SendKeys "~"
End Function
Private Function sy()
SendKeys ":S:S:S:S:S:S:S:S"
SendKeys "+~"
SendKeys ":S:S:heart:S:S:S:heart:S"
SendKeys "+~"
SendKeys ":S:S:S:heart:S:heart:S:S"
SendKeys "+~"
SendKeys ":S:S:S:S:heart:S:S:S"
SendKeys "+~"
SendKeys ":S:S:S:S:heart:S:S:S"
SendKeys "+~"
SendKeys ":S:S:S:S:heart:S:S:S"
SendKeys "+~"
SendKeys ":S:S:S:S:S:S:S:S"
SendKeys "~"
End Function
Private Function sz()
SendKeys ":S:S:S:S:S:S:S:S"
SendKeys "+~"
SendKeys ":S:S:heart:@@:heart:S"
SendKeys "+~"
SendKeys ":S:S:S:S:S:heart:S:S"
SendKeys "+~"
SendKeys ":S:S:S:S:heart:S:S:S"
SendKeys "+~"
SendKeys ":S:S:S:heart:S:S:S:S"
SendKeys "+~"
SendKeys ":S:S:heart:@@:heart:S"
SendKeys "+~"
SendKeys ":S:S:S:S:S:S:S:S"
SendKeys "~"
End Function
Private Function sspace()
SendKeys ":S:S:S:S:S:S:S:S"
SendKeys "+~"
SendKeys ":S:S:S:S:S:S:S:S"
SendKeys "+~"
SendKeys ":S:S:S:S:S:S:S:S"
SendKeys "+~"
SendKeys ":S:S:S:S:S:S:S:S"
SendKeys "+~"
SendKeys ":S:S:S:S:S:S:S:S"
SendKeys "+~"
SendKeys ":S:S:S:S:S:S:S:S"
SendKeys "+~"
SendKeys ":S:S:S:S:S:S:S:S"
SendKeys "~"
End Function
Private Function Barrer()
ca.Enabled = Not ca.Enabled
cb.Enabled = Not cb.Enabled
cc.Enabled = Not cc.Enabled
cd.Enabled = Not cd.Enabled
ce.Enabled = Not ce.Enabled
cf.Enabled = Not cf.Enabled
cg.Enabled = Not cg.Enabled
ch.Enabled = Not ch.Enabled
ci.Enabled = Not ci.Enabled
cj.Enabled = Not cj.Enabled
k.Enabled = Not k.Enabled
l.Enabled = Not l.Enabled
m.Enabled = Not m.Enabled
n.Enabled = Not n.Enabled
o.Enabled = Not o.Enabled
p.Enabled = Not p.Enabled
q.Enabled = Not q.Enabled
r.Enabled = Not r.Enabled
s.Enabled = Not s.Enabled
t.Enabled = Not t.Enabled
u.Enabled = Not u.Enabled
v.Enabled = Not v.Enabled
w.Enabled = Not w.Enabled
x.Enabled = Not x.Enabled
y.Enabled = Not y.Enabled
z.Enabled = Not z.Enabled
space.Enabled = Not space.Enabled
End Function
Private Function barrerbas()
fy.Enabled = Not fy.Enabled
stfu.Enabled = Not stfu.Enabled
lol.Enabled = Not lol.Enabled
wtf.Enabled = Not wtf.Enabled
lmao.Enabled = Not lmao.Enabled
noob.Enabled = Not noob.Enabled
rofl.Enabled = Not rofl.Enabled
elf.Enabled = Not elf.Enabled
End Function
Private Function check()
If a <> "" Then
checker a
a = ""
ElseIf b <> "" Then
checker b
b = ""
ElseIf c <> "" Then
checker c
c = ""
ElseIf d <> "" Then
checker d
d = ""
ElseIf e <> "" Then
checker e
e = ""
ElseIf f <> "" Then
checker f
f = ""
ElseIf g <> "" Then
checker g
g = ""
ElseIf h <> "" Then
checker h
h = ""
ElseIf i <> "" Then
checker i
i = ""
ElseIf j <> "" Then
checker j
j = ""
Else
Timer2.Enabled = False
Send.Enabled = True
Barrer
barrerbas
cl.Enabled = True
bs.Enabled = True
End If
End Function
Private Function tim()
Barrer
fy.Enabled = False
stfu.Enabled = False
lol.Enabled = False
wtf.Enabled = False
lmao.Enabled = False
noob.Enabled = False
rofl.Enabled = False
elf.Enabled = False
Send.Enabled = False
entry.Text = ""
Timer1.Enabled = True
cl.Enabled = False
bs.Enabled = False
End Function
Private Sub cmdX_Click()
Unload Me
End Sub
Private Sub cmdX_MouseDown(Button As Integer, Shift As Integer, x As Single, y As Single)
cmdX.ForeColor = &HC00000
End Sub
Private Sub info_MouseDown(Button As Integer, Shift As Integer, x As Single, y As Single)
info.ForeColor = &HC00000
End Sub
Private Sub title_MouseDown(Button As Integer, Shift As Integer, x As Single, y As Single)
If Button = vbLeftButton Then
FirstX = x
FirstY = y
End If
End Sub
Private Sub title_MouseMove(Button As Integer, Shift As Integer, x As Single, y As Single)
If Button = vbLeftButton Then
Me.Left = Me.Left + (x - FirstX)
Me.Top = Me.Top + (y - FirstY)
End If
cmdX.BackColor = &HFF8080
info.BackColor = &HFF8080
End Sub
Private Sub Form_MouseMove(Button As Integer, Shift As Integer, x As Single, y As Single)
entry.BackColor = &HFF8080
cmdX.ForeColor = &HFFFFFF
End Sub
Private Function checker(lett As String)
Select Case lett
Case "a"
Sa
Case "b"
sb
Case "c"
sc
Case "d"
sd
Case "e"
se
Case "f"
sf
Case "g"
sg
Case "h"
sh
Case "i"
si
Case "j"
sj
Case "k"
sk
Case "l"
sl
Case "m"
sm
Case "n"
sn
Case "o"
so
Case "p"
sp
Case "q"
sq
Case "r"
sr
Case "s"
ss
Case "t"
st
Case "u"
su
Case "v"
sv
Case "w"
sw
Case "x"
sx
Case "y"
sy
Case "z"
sz
Case " "
sspace
End Select
End Function

BAGI KALIAN............. YANG INGIN MEROBAHNYA SILAHKAN TINGAL DI COPY PASTE AJA CODE INI..................!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!



SELAMAT BEREXPEDISI....!!!!!!!!!!!!!!!!!


CLICK DISINI UNTUK APPNYA

DIPOSTING JUGA UY SOURCE CODE NA

NUHUN AH...........

mantap