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
—————