Kode Akhiri Program Dengan Animasi 1

Nah nc ada sedikit listing program untuk keluar dari sebuah program yang kita buat menggunakan VB (Visual Basic) keluar dengan animasi.......sekarang kamu buka program VB kmu....nh setelah itu buat project baru.......klick 2x pada form.....pada pojok kanan ganti "load" dengan "QueryUnload"....

setelah itu masukan kode berikut ini :

'/----Awal Kode-------
Private Sub Form_QueryUnload(Cancel As Integer, UnloadMode As Integer)
MsgBox "good bye"
cepat = 10
While Left + Width < Screen.Width
DoEvents
Left = Left + cepat
Wend
While Top - Height < Screen.Height
DoEvents
Top = Top + cepat
Wend
Hide
End Sub
'-----akhir kode-----

nh setelah itu coba dech kamu jalankan.....

jreng....jreng.....

selamat mencoba.....^_^.....