0 Animasi Form Pada Visual Basic 6.0

Berikut Ini Adalah Kumpulan Animasi Saat Form Di Close, Silahkan Di Copy/Paste  Code Di Bawah Ini ^_^

1. Form Menutup Kebawah → Form saat kita Close atau Ditutup, Form tersebut akan menutup kebawah secara berjalan.

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

2. Form Menutup ke Kanan → Sama seperti Form menutup kebawah, akan tetapi Form menutup kearah kanan ini akan menutup Form berjalan kearah kanan

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

Mungkin Ini saja yang saya bagikan ..
semoga tidak Berhasil ^_^

Artikel Terkait :