ANIMASI UNLOAD FORM

Animasi Unload Form

Assalamualaikum. wr. wb..

Artikel saya kali ini akan membahas cara membuat animasi form saat keluar atau ditutup, jadi sebelum tampilan form menghilang form akan bergerak naik atau turun.

Simak caranya dibawah ini.

1. Buka program Visual Basic, dan mulai dengan form baru.
2. Masukan dua komponen CommandButton dan ubahlah propertis Captionnya masing-masing Command1="naik" dan Command2="turun"
3. Double klik pada tombol Command1  lalu masukan listing kode dibawah ini
4. Private Sub Command1_Click()
   Do Until Me.Top <= -5000
      Me.Move Me.Left, Me.Top - 10: DoEvents
   Loop
   Unload Me
   End Sub
5. Double klik pada tombol Command2  lalu masukan listing kode dibawah ini
6. Private Sub Command2_Click()
   Do Until Me.Top > 15000
      Me.Move Me.Left, Me.Top + 10: DoEvents
   Loop
   Unload Me
   End Sub
7. Jalankan program dengan menekan F5 pada tombol keyboard anda.  
   
8. Wassalam.. n smoga bermanfaat..