Ciao Spoiler eccoti la soluzione se ho capito bene

Private sub Command1_click()
Timer1.enabled = True
End Sub

Private Sub Timer2_Timer()
Static X As Integer
X = (X + 1) Mod 50
MousePointer = vbHourglass
ProgressBar2.Value = X
If ProgressBar2.Value = 49 Then
MousePointer = vbDefault
Timer2.Enabled = False
ProgressBar2.Value = 0
Formchevuoitu.Show
Unload Me
End If
End Sub

PS: ricordati di impostare la proprità del timer su
Enable = false di default