gistfile1.vb

'In the Module (Evry1falls.bas)
'Sliding ==> effect to end the application.
Public Sub ExitEffect(Frm As Form, Espeed As Integer)
While Frm.Left + Frm.Width < Screen.Width
DoEvents
Frm.Left = Frm.Left + Espeed
Wend
While Frm.Top - Frm.Height < Screen.Height
DoEvents
Frm.Top = Frm.Top + Espeed
Wend
Unload Frm
End Sub

Private Sub CmdEnd_Click()
'Exit the application correctly
Set MainFrm = Nothing
Set Display = Nothing
Set CN = Nothing
Set RS = Nothing
ExitEffect Me, 400
End Sub