by Photonhelix (2 Submissions)
Category: Miscellaneous
Compatability: Visual Basic 3.0
Difficulty: Unknown Difficulty
Originally Published: Tue 20th June 2000
Date Added: Mon 8th February 2021
Rating: (1 Votes)
Scroll your program to the left on unload.
Place this code on the Timer:
Private Sub Timer1_Timer()
Form.Move Form.Left - 300
If Form.Left < -Form.Width Then End
End Sub
Place this code on the Form_Unload action:
Private Sub Form_Unload()
Timer1.Interval = 1
End Sub
If you are not using the custom close controls, add a Label and add this code to the Label:
Private Sub Label_Click()
Timer1.Interval = 1
End Sub