Screen Wipe

Profile · Posted 2003-06-28, 11:38 AM

Code:

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

Thread Tools
Show Printable Version Email this Page
Display Modes
Switch to Linear Mode Switch to Hybrid Mode Threaded Mode

Currently Active Users Viewing This Thread: 1 (0 members and 1 guests)