by sklein (1 Submission)
Category: Graphics
Compatability: Visual Basic 4.0 (32-bit)
Difficulty: Unknown Difficulty
Originally Published: Mon 8th November 1999
Date Added: Mon 8th February 2021
Rating: (1 Votes)
Slide a form to the left and slide down to the taskbar.
Sub Slide_Window(frmSlide As Form, iSpeed As Integer)
While frmSlide.Left + frmSlide.Width < Screen.Width
DoEvents
frmSlide.Left = frmSlide.Left + iSpeed
Wend
While frmSlide.Top - frmSlide.Height < Screen.Height
DoEvents
frmSlide.Top = frmSlide.Top + iSpeed
Wend
frmSlide.Hide
End Sub
'2. Call the Slide procedure from the click event of a text box and pass it 2 'paramaters
'a. The form name - in this case form1.
'b. The speed - I use 250 the higher the faster
Call Slide_Window (form1, 250)