Animasi Form Exit

Deskripsi : Anda ingin Tombol Keluar pada Program VB Anda terlihat berbeda dari biasanya? Berikut Tips Agar Tombol Keluar dapat Naik & Turun..


'*********************
'* Animasi Form Exit *
'*********************
'Email : ryan20shinichi@gmail.com
'Facebook : Shinichi Ryan
'--------------------------------
'Komponen Yang dibutuhkan :
'1. 1 Project & 1 Form
'2. 2 Command
'Koding di Form
'--------- Batas Awal ----------
'Keluar(Naik)
Private Sub Command1_Click()
Do Until Me.Top <= -4000 Me.Move Me.Left, Me.Top - 30: DoEvents Loop End End Sub 'Keluar(Turun) Private Sub Command2_Click() Do Until Me.Top > 15000
Me.Move Me.Left, Me.Top + 30: DoEvents
Loop
End
End Sub
'--------- Batas Akhir ----------