FormClose

Public Sub ExitDownward(FormName As Form)
Do
DoEvents
FormName.Top = Trim(Str(Int(FormName.Top) + 300))
Loop Until FormName.Top > 7200
End Sub

Public Sub ExitToTheLeft(FormName As Form)
Do
DoEvents
FormName.Left = Trim(Str(Int(FormName.Left) - 300))
Loop Until FormName.Left < -FormName.Width
End Sub

Public Sub ExitToTheRight(FormName As Form)
Do
DoEvents
FormName.Left = Trim(Str(Int(FormName.Left) + 300))
Loop Until FormName.Left > Screen.Width
End Sub

Public Sub ExitUpward(FormName As Form)
Do
DoEvents
FormName.Top = Trim(Str(Int(FormName.Top) - 300))
Loop Until FormName.Top < -FormName.Width
End Sub

'An example of using code to make a form Hide itself.

'Put this in your exit button.


Private Sub cmdExit_Click()
ExitDownward Me
End Sub

'An example of using this code to hide another form

'would be


Private Sub cmdExit_Click()
ExitDownward Form1
End Sub

'Obviously to completely exit (not just hide it) a program

'just add end like this


Private Sub cmdExit_Click()
ExitDownward Form1
End
End Sub

'Lastly, to just unload a form, do this


Private Sub cmdExit_Click()
ExitDownward Form1
Unload Form1
End Sub