Membuat Animasi Bergerak dengan Visual Basic

Proyek kali ini adalah membuat animasi bergerak dengan VB. Animasinya yaitu sebuah obyek  berupa gambar yang akan bergerak naik & turun jika user mengklik tombolnya

Pertama, buat form lalu tambahkan Image dan sebuah CommandButton.

lalu ketik kode-kode berikut ini pada CommandButton 

Private Sub Command1_Click()
For a = 6000 To 0 Step -0.02
Image1.Move Image1.Left, a
Next a

For a = 0 To 6000 Step 0.02
Image1.Move Image1.Left, a
Next a
End Sub

Jalankan dan si sh!nchan akan bergerak naik turun jika anda mengklik tombolnya

Download sourcecode Animasi VB