You can achieve some cool form wipes with judicious use of the Movemethod. For example, to draw a curtain from right to left use this routine:
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 NextEnd SubCall the routine from a command button by using this code:
L = Me.LeftT = Me.TopWipeRight L, T, MeIt is also possible to wipe a form from bottom to top, and from bothsides to the middle, using similar routines.
