Private Sub Form_Load()
Timer1.Interval = 100
Label1.Caption = "...........Haqan / AdeLHard.............."
End Sub
Private Sub Timer1_Timer()
Label1.Caption = Mid(Label1.Caption, 2) + Left(Label1.Caption, 1)
End Sub
Timer1.Interval = 100
Label1.Caption = "...........Haqan / AdeLHard.............."
End Sub
Private Sub Timer1_Timer()
Label1.Caption = Mid(Label1.Caption, 2) + Left(Label1.Caption, 1)
End Sub