[ahmedabdelaliem]

عدل على البرنامج كالتالي

PHP كود :

Dim x As Integer

Private Sub Form_Load()
 HScroll1_Change
End Sub

Private Sub HScroll1_Change()
x = -6000
Timer1.Interval = (11 - HScroll1.Value) * 50: Timer1_Timer

End Sub

Private Sub Timer1_Timer()
x = x + 1
Label1.Caption = x
If x > 100 Then x = -6000
End Sub