by Idroys Prosoftsystem (1 Submission)
Category: Custom Controls/Forms/Menus
Compatability: VB 6.0
Difficulty: Unknown Difficulty
Originally Published: Tue 17th June 2003
Date Added: Mon 8th February 2021
Rating: (1 Votes)
This code scroll your form project when close ( Simple code )
API Declarations
public function CloseLeft()
Form1.left = form1.left - 100
if form1.left < -form1.width then
unload me
end if
end function
public function CloseUP()
Form1.top = form1.top - 100
if form1.top < -form1.height then
unload me
end if
end function
public function CloseRight()
Form1.Right = form1.Right - 100
if form1.Right > screen.width then
unload me
end if
end function
public function CloseDown()
Form1.top = form1.top + 100
if form1.left > screen.height then
unload me
end if
end function
Private sub Command1_click()
CloseDown
end sub