![](https://blogger.googleusercontent.com/img/b/R29vZ2xl/AVvXsEjOVxZ6kCohZ02rr_4zEp1AW7zx8B328rW5wESaOJh4AatBaREP0p20BpDTt0Nzwh2c4bfXsbzi1QusL4H_XlyUrOOZX4H5c1uuqe029kyVJINAsYSTDAf0uZURhSrIgCFxe3W3dBJUQxJu/s400/Animasi+Form+Exit.jpg)
'*********************
'* 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 ----------
0 komentar:
Posting Komentar