Sepertinya Animasi (vb 6.0)



Option Explicit
Dim I As Integer
Dim S As Integer

Private Sub Command1_Click()
Unload Me
End Sub

Private Sub Form_Click()
Timer2.Enabled = False
Timer1.Enabled = True
End Sub

Private Sub Form_Load()
I = 500
S = 120
Form1.Height = I
Form1.Width = I
End Sub

Private Sub Label1_Click()
Timer2.Enabled = True
Timer3.Enabled = False
End Sub

Private Sub Timer1_Timer()
Do While (I < 4005)
Form1.Height = I
Form1.Width = I
Form1.Left = I
I = I + 20
Loop
Timer3.Enabled = True
Timer1.Enabled = False
End Sub

Private Sub Timer2_Timer()
Do While (I > 500)
Form1.Height = I
Form1.Width = I
Form1.Left = I
I = I - 20
Loop
End Sub

Private Sub Timer3_Timer()
If (S < 2880) Then
S = S + 50
Command1.Left = S
Else
Timer4.Enabled = True
Timer3.Enabled = False
End If
Label1.ForeColor = QBColor(Rnd * 15)
End Sub

Private Sub Timer4_Timer()
If (S > 120) Then
S = S - 50
Command1.Left = S
Else
Timer4.Enabled = False
Timer3.Enabled = True
End If
Label1.ForeColor = QBColor(Rnd * 15)
End Sub