animasi form keluar

1.buat form baru dan dua buah command button

Code :

Private Sub tombol_Click(Index As Integer)

    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