GoAway Screen Wipe VB

Public Function screenWipe(Form As Form, CutSpeed As Integer) As Boolean

Dim OldWidth As Integer
Dim OldHeight As Integer


Form.WindowState = 0


If CutSpeed <= 0 Then
MsgBox "You cannot use 0 as a speed value"
Exit Function
End If



Do
OldWidth = Form.Width


Form.Width = Form.Width - CutSpeed


DoEvents


If Form.Width <> OldWidth Then


Form.Left = Form.Left + CutSpeed / 2


DoEvents
End If

OldHeight = Form.Height


Form.Height = Form.Height - CutSpeed


DoEvents


If Form.Height <> OldHeight Then


Form.Top = Form.Top + CutSpeed / 2


DoEvents
End If

Loop While Form.Width <> OldWidth Or Form.Height <> OldHeight

Unload Form
End Function