contador con shape del 0 al 99 visual basic 6.0

Private Sub Command1_Click() Timer1.Enabled = True End Sub Private Sub Form_Load() End Sub Private Sub Timer1_Timer() Text1.Text = Text1 + 1 If Text1 = 99 Then Text = 0 Timer1.Enabled = False End If If Text1 = 1 Then Shape1.Visible = True Shape2.Visible = True Shape3.Visible = True Shape4.Visible = True Shape5.Visible = True Shape6.Visible = True Shape7.Visible = False Shape11.Visible = True Shape12.Visible = True Shape13.Visible = True Shape14.Visible = True Shape15.Visible = True Shape16.Visible = True Shape17.Visible = False End If If Text1 = 2 Then Shape1.Visible = True Shape2.Visible = True Shape3.Visible = True Shape4.Visible = True Shape5.Visible = True Shape6.Visible = True Shape7.Visible = False Shape11.Visible = False Shape12.Visible = True Shape13.Visible = True Shape14.Visible = False Shape15.Visible = False Shape16.Visible = False Shape17.Visible = False End If If Text1 = 3 Then Shape1.Visible = True Shape2.Visible = True Shape3.Visible = True Shape4.Visible = True Shape5.Visible = True Shape6.Visible = True Shape7.Visible = False Shape11.Visible = True Shape12.Visible = True Shape13.Visible = False Shape14.Visible = True Shape15.Visible = True Shape16.Visible = False Shape17.Visible = True End If