Cool Screen Wipes

Cool Screen Wipes

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 Sub

Call the routine from a command button by using this code:

 L = Me.LeftT = Me.TopWipeRight L, T, Me

It is also possible to wipe a form from bottom to top, and from bothsides to the middle, using similar routines.

See also  10 Best Apps to Help You Read More Books in Less Time

About Our Editorial Process

At DevX, we’re dedicated to tech entrepreneurship. Our team closely follows industry shifts, new products, AI breakthroughs, technology trends, and funding announcements. Articles undergo thorough editing to ensure accuracy and clarity, reflecting DevX’s style and supporting entrepreneurs in the tech sphere.

See our full editorial policy.

About Our Journalist