Adding text to label caption on timer

[thmsjlmnt3953]

Hi,

I have globally defined 'Progress' as integerer and using the following code on my splash screen - i want to add a "." to the end of the label caption until progress = 10 (10 timer events)

Private Sub Form_Load()
Progress = 0
End Sub

Private Sub Form_Timer()
Dim Dot As String
Dot = "."
Progress = Progress + 1
Me.lblProgress.Caption
If Progress = 10 Then
DoCmd.OpenForm "frmLogin"
DoCmd.Close acForm, "frmSplash"
End If
End Sub

im sure its quite simple however this is as far as ive gotten so far..

 

[CJ_London]

lblProgress.Caption=lblProgress.Caption & "."