• Home
 · 
• Miscellaneous
 · 
• Scroll your program to the left on unload.

Scroll your program to the left on unload.

Scroll your program to the left on unload.

Rate Scroll your program to the left on unload.

• 1
• 2
• 3
• 4
• 5

(1(1 Vote))

 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