animasi form dengan VB

Dengan menggunakan visual basic 6.0 kita bisa membuat sebuah program memiliki animasi pada saat program tersebut diakhiri atau ditutup. Animasi tersebut diantaranya animasi form bergerak keatas, kebawah, kekanan serta kekiri.


Kita mulai dengan animasi form yang bergerak ke atas ketika ditutup.
Agar form bergerak ke atas pada saat ditutup maka kode akan ditulis pada sub QueryUnload ataupun Unload. Siapkanlah sebuah form dan buatlah listing kode berikut :

Private Sub Form_Unload(Cancel As Integer)
Do
DoEvents
Form1.Top = Trim(Str(Int(Form1.Top) - 5))
Loop Until Form1.Top < -Form1.Width
End Sub

Angka 5 bisa anda rubah sesuai kebutuhan anda contoh bila anda ingin agar form bergerak ke atas lebih cepat maka tambahkan nilainya pada Trim(Str(Int(Form1.Top) - 5)) menjadi 50 dan seterusnya.

Animasi yang berikutnya adalah animasi form bergerak ke bawah.
Sama seperti animasi sebelumnya siapkanlah sebuah form terlebih dahulu lalu buatlah listing kode berikut :

Private Sub Form_Unload(Cancel As Integer)
Do
Me.Top = Me.Top + 5
Me.Move Me.Left, Me.Top
DoEvents
Loop Until Me.Top > Screen.Height - 500
End Sub

Kalau kedua aniasi diatas adalah animasi form bergerak ke atas dan ke bawah, berikutnya adalah animasi agar form bergerak ke kiri atau ke kanan.
Dimulai dengan animasi form bergerak ke kanan, siapkanlah sebuah form kemudian buatlah listing kode berikut :

Private Sub Form_Unload(Cancel As Integer)
Do
Me.Left = Me.Left + 5
Me.Move Me.Left, Me.Top
DoEvents
Loop Until Me.Left > Screen.Width
End Sub

Nah yang terakhir animasi form bergerak ke kiri, siapkan sebuah form kemudian buatlah listing kode berikut :

Private Sub Form_Unload(Cancel As Integer)
Do
Me.Left = Me.Left - 5
Me.Move Me.Left, Me.Top
DoEvents
Loop Until Me.Left < -Screen.Width
End Sub

yupz... selesai sudah semuanya... selamat mencoba..