Io ci provo ad aiutarti

Dunque creati una prima label e chiamala lab0 e metti nella proprietà caption "Inizzializzazione in corso"
poi creati una matirce con 20 label e chiamale lab(0), lab(1), ecc ecc. fino a lab(19)
Chiaramente imposterai la caption della lab(0) in "20" la caption della lab(1) "19" ecc.fino a "0"
poi copia incolla questo codice io ho provato a me funziona
mi raccomanndo la procedura timer chiamala (TmrTimer) e imposta la proprieà interval a 200 dovrebbe andare bene
ma dipende dlla velocità della macchina sù cui gira.

-->code
Option Explicit
Dim gTrecorrente As Integer
Dim gFlagMovimento As Integer

Private Sub Form_Load()
TmrTimer.Enabled = True
If gFlagMovimento = 0 Then
gFlagMovimento = 1
Else: gFlagMovimento = 0
gFlagMovimento = 0
gTrecorrente = 0
End If
End Sub

Private Sub TmrTimer_Timer()
If gFlagMovimento = 1 Then
lab0.Caption = lab(gTrecorrente).Caption
gTrecorrente = gTrecorrente + 1
If gTrecorrente = 19 Then
gTrecorrente = 0
Unload Me
formchevuoi.Show
End If
End If

End Sub
<--code
Ciao e fammi sapere