'== (c) by Valery V Shmeleff  Moscow/Russia  www.oflameron.ru ==
Private Sub Timer1_Timer()
IndLent = IndLent + 1
If IndLent = 9 Then
    IndLent = 0
    Timer1.Interval = 500  ‘Восстановим интервал таймера
End If
Print_Ind   'Нарисуем индикатор
End Sub

'Процедура рисования индикатора:

Private Sub Print_Ind()
If IndLent = 1 Then Label55.Visible = False ‘Загасить элемент индикатора
If IndLent = 2 Then Label54.Visible = False ‘Загасить элемент индикатора
If IndLent = 3 Then Label53.Visible = False ‘Загасить элемент индикатора
If IndLent = 4 Then Label52.Visible = False ‘Загасить элемент индикатора
If IndLent = 5 Then Label51.Visible = False ‘Загасить элемент индикатора
If IndLent = 6 Then Label50.Visible = False ‘Загасить элемент индикатора
If IndLent = 7 Then Label49.Visible = False ‘Загасить элемент индикатора
If IndLent = 7 Then Timer1.Interval = 100    ‘Уменьшить интервал, чтобы индикатор
                                                                         ‘восстанавливался побыстрее
If IndLent = 0 Then                                          ‘Нарисовать индикатор полностью
     Label55.Visible = True
     Label54.Visible = True
     Label53.Visible = True
     Label52.Visible = True
     Label51.Visible = True
     Label50.Visible = True
     Label49.Visible = True
End If
End Sub

    Source: geocities.com/oflameron