• Home
 · 
• Custom Controls/Forms/Menus
 · 
• Form effect -- Slide a window when closing

Form effect -- Slide a window when closing

Form effect -- Slide a window when closing

API Declarations


just put the next code in a form and and command button



Rate Form effect -- Slide a window when closing

• 1
• 2
• 3
• 4
• 5

(1(1 Vote))

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
Unload frmSlide
End Sub
Private Sub Command1_Click()
Call SlideWindow(Form1, 100)
End Sub