[RESOLVED] 'loading' text

[Pouncer]

i want to have a text box on my form which says..

Loading......

(6 dots)

but how can i make it realistic like making the dots move e.g..

loading.
loading..
loading...
loading....

etc... this would happen very fast obviously, but i hope u guys know what i mean

[Pouncer]

never mind, sorted it

[dglienna]

You could use something like this:

Option Explicit
 
Private Declare Sub Sleep Lib "kernel32" (ByVal dwMilliseconds As Long)
 
Private Sub Form_Activate()
  Dim st As String, x As Integer
  st = "Loading"
  Label1.Caption = st
  For x = 1 To 6 ' use any number of dots
    st = st & "."
    Label1.Caption = st
    DoEvents
    Sleep 400
  Next x
End Sub
 
Private Sub Form_Load()
  Me.Show
End Sub