Animasi Form Keluar ( Bergerak Keatas `)

Persiapan :
- 1 command button ( Name: Command1 )

Source Kode :

Private Sub Command1_Click()
Select Case Index
Case 0
Do Until Me.Top <= -5000 Me.Move Me.Left, Me.Top - 10: DoEvents Loop Case 1 Do Until Me.Top > 20000
Me.Move Me.Left, Me.Top + 10: DoEvents
Loop
End Select
End
End Sub