Membuat Animasi sederhana menggunakan Timer pada Visual Basic

Ini adalah nama" setiap objek pada animasi sederhana ini

Dim st As Integer
Private Sub Timer1_Timer()
If heli.Left > -heli.Width Then
    heli.Left = heli.Left - 80
Else
   heli.Left = Form1.ScaleWidth
End If
End Sub

Private Sub Timer3_Timer()
If burung.Left > -burung.Width Then
    burung.Left = burung.Left + 30
Else
   burung.Left = Form1.ScaleWidth

End If
End Sub

Private Sub Timer4_Timer()
If pohon(2).Left > -pohon(2).Width Then
    pohon(2).Left = pohon(2).Left + 30
Else
   pohon(2).Left = Form1.ScaleWidth
End If
End Sub

Private Sub Timer5_Timer()
If pohon(1).Left > -pohon(1).Width Then
    pohon(1).Left = pohon(1).Left + 30
Else
   pohon(1).Left = Form1.ScaleWidth
End If
End Sub

Private Sub Timer6_Timer()
If pohon(0).Left > -pohon(0).Width Then
    pohon(0).Left = pohon(0).Left + 30
Else
   pohon(0).Left = Form1.ScaleWidth
End If
End Sub

Private Sub Timer7_Timer()
If pohon(3).Left > -pohon(3).Width Then
    pohon(3).Left = pohon(3).Left + 30
Else
   pohon(3).Left = Form1.ScaleWidth
End If
End Sub

YANG DI ATAS ADALAH KODE YANG TERDAPAT DI ANIMASI YANG SAYA BUAT 

Okelah Kita mulai saja ...
Buatlah Objek apapun yang di bisa di buat animasi
Kalau saya memberi objek burung,awan,heli dll dan nama objek selengkapnya ada di atas tadi ..
Dan jangan lupa nama objek dan kodenya harus sama dan tidak boleh beda
Nanti Gak bisaa jalann  nanti
Oke setelah sudah semua hasilnya ada di bawahh inii !!!

Dan kalau di videokan hasilnya seperti ini
Silahkan di Lihatt di bawah ini ..

Tugas ini di kerjakan Bersama
Eko Prastiyo (33) (ekoprastiyo-smktjp.blogspot.com)