Membuat animasi dengan visual basic

Pertama-tama yang harus dilakukan adalah install visual basicnya, lagian haree genee ga punya visual basic, kan dah gw kasih linknya diblog buat downloadnya, wkewkewkewkewke………
Next, dah becandanya. Langkah-langkahnya adalah :
1. buat desain form sebagus mungkin
2. caption untuk formnya animasi label
3. buat satu buah kolom text (tidak ada yang dirubah)
4. buat satu buah kolom label (properties alignment ganti jadi center)
5. buat dua buah command button yang caption yang pertama beri nama start and yang kedua stop.
6. setelah itu beres dah……….

Lah trus mana listingnya BOSs???

Sabar dikit atuh,n nih lo isi gini aja

Option Explicit

Dim Play As Boolean
Sub Sleep(Delay%)
Dim Mulai%

While Mulai < Delay - (1000) And Play = True
Mulai = Mulai + 1
DoEvents
Wend
End Sub

Sub Damn()
Dim h$, f$, c$, i%, t%, d%
Dim strTemp$, length%
Dim buffLeft$, buffRight$

If Play = False Then Exit Sub
h = Text1

'// Gaya Huruf Besar dan kecil
Label1 = LCase(h)
c = Label1
For i = 1 To Len(h)
Sleep 10000
Mid(c, i, 1) = UCase(Mid(c, i, 1))
Label1 = c
Next i

For i = 1 To Len(h)
Sleep 10000
Mid(c, (Len(h) + 1) - i, 1) = _
LCase(Mid(c, (Len(h) + 1) - i, 1))
Label1 = c
Next i

'// Gaya mengetik
Label1 = "|"
For i = 1 To 5
Sleep 10000
If Label1 = "|" Then
Label1 = " "
Else
Label1 = "|"
End If
Next i

For i = 1 To Len(h)
Sleep 10000
Label1 = Left(h, i) & "|"
Next i

Label1 = Left(Label1, Len(Label1) - 1)

'// Berjalan dari sebelah kiri
Label1 = h
Do
Sleep 22000
Label1 = Mid(Label1, 2, Len(Label1) - 1) & Left(Label1, 1)
DoEvents
Loop Until Label1 = h

'// Berjalan dari sebelah kanan
Label1 = h
Do
Sleep 22000
Label1 = Right(Label1, 1) & Left(Label1, Len(Label1) - 1)
Loop Until Label1 = h

'// Gaya Terbang
t = Label1.Top
Label1.Top = t + 500
While Label1.Top >= t
Sleep 5000
Label1.Top = Label1.Top - 10
Wend
Sleep 12000

'// Gaya Menghilang
Label1.Visible = False
Sleep 15000
Label1.Visible = True
Sleep 17000

'// Gaya ZOOM
'Label1.Alignment = vbCenter
For i = 1 To Label1.FontSize
Sleep 10000
Label1.FontSize = i
Next i

'// Gaya Strip
Label1 = String(Len(h), " ")
f = Label1
For i = 1 To Len(h)
Sleep 8000
c = Mid(h, Len(h) - (i - 1), 1)
Mid(f, Len(f) - (i - 1), 1) = c
Label1 = f
Next i

'// Gaya Blink
For i = 1 To 10
Sleep 12000
If Label1.Visible = True Then
Label1.Visible = False
Else
Label1.Visible = True
End If
Next i

'// Gaya Melompat dan Box
strTemp = Label1
For i = 1 To 2
length = 0
While length < Len(strTemp)
Sleep 10000
length = length + 1
If i = 1 Then
Label1 = String(Len(strTemp), " ")
buffLeft = Label1
Mid(buffLeft, length, 1) = Mid(strTemp, length, 1)
Label1 = buffLeft
buffRight = Label1
Mid(buffRight, Len(strTemp) - (length - 1), 1) = _
Mid(strTemp, Len(strTemp) - (length - 1), 1)
Label1 = buffRight
Else
buffLeft = Label1
Mid(buffLeft, length, length) = _
Mid(strTemp, length, length)
Label1 = buffLeft
buffRight = Label1
Mid(buffRight, Len(strTemp) - (length - 1), length) = _
Mid(strTemp, Len(strTemp) - (length - 1), length)
Label1 = buffRight
End If
DoEvents
Wend
Next i

Damn
End Sub

Private Sub Command1_Click()
If Command1.Caption = "Mulai" Then
Command1.Caption = "Stop"
Text1 = Text1 & " "
Label1 = Text1
Play = True
Else
Command1.Caption = "Mulai"
Play = False
End If
Damn
End Sub

Private Sub Command2_Click()
End
End Sub

Private Sub Form_Load()
Form1.Caption = "ANIMASI LABEL"
Text1.Text = "http://tirtasuryana.blogspot.com"
Command1.Caption = "Mulai"
Command2.Caption = "Close"
End Sub

Selesai deh projectnya, untuk pengembangannya silahkan pikirkan dengan otak kalian masing-masing………