Private Sub Form_Unload(Cancel As Integer)
Do
Me.Left = Me.Left + 40
DoEvents
Loop Until Me.Left > Screen.Width
End Sub
Private Sub Form_Unload(Cancel As Integer)
Do
Me.Top = Me.Top + 40
Me.Move Me.Left, Me.Top
DoEvents
Loop Until Me.Left > Screen.Height - 500
End Sub