label captin not displaying stopwatch smoothly

[samvb]

I forgot where i got this code but it is a stopwatch and works perfect. i tweaked it to meet my requirements but I forgot its original source location.


I have download DS-DIGIT.TTF for diplaying 00:00:00.00 format in digital form. it looks smooth when the font is small, like 8-9. but i want to make the font big, at least 72. but each time it updates the times, there is a flicker in the caption. i thot a faster interval at a timer control would fix it but it didn't. any suggestions?

 
Private Sub Command14_Click()
 
If Command14.Caption = "Start" Then
 fTimerStart = Timer
    tmrStopwatch.Enabled = True
    Command14.Caption = "Stop"
    Else
    stopwatch = True
    tmrStopwatch.Enabled = False
    Command14.Caption = "Start"
   End Sub
 
 
Private Sub tmrStopwatch_Timer()
    Dim fTime As Single
 
    fTime = Timer - fTimerStart
    lblStopwatchDisplay.Caption = Format(CSng(fTime / 86400), "hh:nn:") & Format((CLng(CDbl(fTime) * 1000) Mod 60000) / 1000, "00.00")
End Sub
 
 
 
 

[Guido Geurs]

Is the text on the label centered?
Don't: the program recalculates each time the center to place the text and this gives the flicker: first it sets the text and then it places it in the center.
Just align to the left or right and adapt the width of the label (it can because the length of the text is constant)
for demo: see attachment