• Home
 · 
• Graphics
 · 
• Slide a form to the left and slide down to the taskbar.

Slide a form to the left and slide down to the taskbar.

Slide a form to the left and slide down to the taskbar.

Rate Slide a form to the left and slide down to the taskbar.

• 1
• 2
• 3
• 4
• 5

(1(1 Vote))

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)