visual basic (VB) 6.0 membuat animasi sederhana

ini adalah dokumentasi program visual Basic(vb)6.0 ketika praktek di cammpus
pertama buat form seperti gambar di bawah ini

lalu tilis kan code berikut pada kode form nya nya
Dim N1 As Integer
Dim N2 As Integer
Dim A1 As Integer
Dim A2 As Integer
Dim jarak1 As Long
Dim jarak2 As Long
Dim maju As Boolean

Private Sub Command1_Click()
If Command1.Caption = "MULAI" Then
Command1.Caption = "BERHENTI"
Timer1.Enabled = True 'true bisa bermakna jalan timer
Else
Command1.Caption = "MULAI"
Timer1.Enabled = False 'false bisa bermakna stop atau hentikan timer
End If
End Sub
Private Sub Form_Load()
maju = False
Timer1.Interval = 10 ' waktu / kecepatan timer berjalan

End Sub

Private Sub Timer1_Timer()



If Shape.Left And Shape1.Top <= 0 Then
maju = True
End If
If Shape.Left And Shape1.Top = 4400 Then
maju = False
End If


If maju = True Then
Shape.Left = Shape.Left + 10 'penambahan kekiri sebanyak sepuluh setelah interval
Shape1.Top = Shape1.Top + 10
Else
Shape.Left = Shape.Left - 10
Shape1.Top = Shape1.Top - 10
End If
A1 = Shape.Left
N1 = Shape1.Left
A2 = Shape.Top
N2 = Shape1.Top

jarak1 = N2 - N1 'untuk melakukan perhitungan jarak shape
jarak2 = A1 - A2 'untuk melakukan perhitungan jarak shape
Text1.Text = jarak1
Text2.Text = jarak2


If (jarak1 <= 100 And jarak1 >= -100) And (jarak2 <= 100 And jarak2 >= -100) Then
Shape.BackColor = vbRed
Shape1.BackColor = vbRed
Text1.BackColor = vbBlack
Text2.BackColor = vbBlack
Frame1.BackColor = vbBlackness


Else

Shape.BackColor = vbGreen
Shape1.BackColor = vbBlue
Text1.BackColor = vbGreen
Text1.ForeColor = vbBlue
Text2.BackColor = vbBlue
Text2.ForeColor = vbGreen
Frame1.BackColor = vbWhite
End If

End Sub

pada saat run setelah mengklik "mulai"



pada saat titik kordinat berada pada jarak antara >=-100 dan <= 100




atau untuk code (kode program vb nya) download
disini