Running dots

Hi There,

I have a label with a caption of " Loading...". Does anybody know how to make the dots(...) runs from left to right?

Thanks

Here's one way of doing it.

Open a new project, add a Timer and a Label and insert this code:

Code:

---

Private Sub Timer1_Timer()
        Static Count As Long
       
        'Increase count
        Count = Count + 1
        If Count > 3 Then: Count = 0
       
        'Apply text
        Label1.Caption = "Loading" & String(Count, ".")
End Sub

---