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