Membuat Animasi Form

Sering kita erasa bosan dengan form yang biasa. Sekarang kita akan belajar tentang cara membuat bentuk animasi sehingga terlihat lebih menjalankan waktu kehidupan. Langkah-langkah dalam membuat adalah sebagai berikut:

Buat bentuk baru dengan nama = animasi_1

Buat Command Buton dalam bentuk buah.
cmdmove mengubah nama dan keterangan Pindah

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

Private Sub Cmdmove_Click ()
x = MsgBox ( "Are you out of form How this", vbYesno + vbinformation, "Message")
if x = then vbyes
unload me
end if
end sub