• Home
 · 
• Graphics
 · 
• Scrolls Labels Horizontally and Verticall Across A form.........easier then the others! Pretty Basi

Scrolls Labels Horizontally and Verticall Across A form.........easier then the others! Pretty Basi

Scrolls Labels Horizontally and Verticall Across A form.........easier then the others! Pretty Basic though. Make a form with; Height = 7890

Rate Scrolls Labels Horizontally and Verticall Across A form.........easier then the others! Pretty Basi

• 1
• 2
• 3
• 4
• 5

(1(1 Vote))

Dim Up As Integer
Dim Across As Integer

Private Sub Form_Load()
Timer1.Enabled = True
Up = -150
Across = 150
End Sub

Private Sub Timer1_Timer()
Label1.Top = Label1.Top + Up
If Label1.Top <= -2760 Then 'make a big form nad put this in the Timer called Timer1
Timer2.Enabled = True
Timer1.Enabled = True
End If
End Sub

Private Sub Timer2_Timer()
Label2.Left = Label2.Left - Across 'put the label half way up the form on the left out of view, or as best u can and make it Visible = False, u will hav 2 change the code slightly
If Label2.Left <= -5040 Then
Label2.Visible = False
Timer1.Enabled = True
Timer2.Enabled = False
End If
End Sub