Screen Wipe

[DellDo]

Sub WipeRight (Lt%, Tp%, frm As Form)
Dim s, Wx, Hx, i
s = 90 'number of steps To use In the wipe
Wx = frm.Width / s 'size of vertical steps
Hx = frm.Height / s 'size of horizontal steps
' top and left are static
' while the width gradually shrinks


For i = 1 To s - 1
frm.Move Lt, Tp, frm.Width - Wx
Next
End Sub
Call the routine from a command button by using this code:
L = Me.Left
T = Me.Top
WipeRight L, T, Me
:killgrin:

[Xenn]

Oh thank Netscape I'm saved!

[h4xx0rz0wnj00]

Aw dave you moron!

[6InchBluePony]

You idiot, get off the forum if you don't know how to use it!

[uncapped]

What is this?

[!King_Amazon!]

Looks like someone tried to do something but he's a dumbass and can't.

[6inchpurplepony]

save it for the flaming forums