visual basic 6.0 activar los shape con timer

jajajaja bueno pendejos jajaj poner x medio de shapes iniciales de un nombre patrocidad x maguss jajaj puta Private Sub Form_Load() Text1 = 0 End Sub Private Sub Timer1_Timer() Text1.Text = Text1 + 1 If Text1 = 37 Then Text1 = 0 Timer1.Enabled = True End If If Text1 = 1 Then Shape1.Visible = True End If If Text1 = 2 Then Shape2.Visible = True End If If Text1 = 3 Then Shape3.Visible = True End If If Text1 = 4 Then Shape4.Visible = True End If If Text1 = 5 Then Shape5.Visible = True End If If Text1 = 6 Then Shape6.Visible = True End If If Text1 = 7 Then Shape7.Visible = True End If If Text1 = 8 Then Shape8.Visible = True End If If Text1 = 9 Then Shape9.Visible = True End If If Text1 = 10 Then Shape10.Visible = True End If If Text1 = 11 Then Shape11.Visible = True End If If Text1 = 12 Then Shape12.Visible = True End If If Text1 = 13 Then Shape13.Visible = True End If If Text1 = 14 Then Shape14.Visible = True End If If Text1 = 15 Then Shape15.Visible = True End If If Text1 = 16 Then Shape16.Visible = True End If If Text1 = 17 Then Shape17.Visible = True End If If Text1 = 18 Then Shape18.Visible = True End If If Text1 = 19 Then Shape19.Visible = True End If If Text1 = 20 Then Shape21.Visible = True End If If Text1 = 21 Then Shape21.Visible = True End If If Text1 = 22 Then Shape22.Visible = True End If If Text1 = 23 Then Shape23.Visible = True End If If Text1 = 24 Then Shape24.Visible = True End If If Text1 = 25 Then Shape25.Visible = True End If If Text1 = 26 Then Shape26.Visible = True End If If Text1 = 27 Then Shape27.Visible = True End If If Text1 = 28 Then Shape28.Visible = True End If If Text1 = 29 Then Shape29.Visible = True End If If Text1 = 30 Then Shape30.Visible = True End If If Text1 = 31 Then Shape31.Visible = True End If If Text1 = 32 Then Shape32.Visible = True End If If Text1 = 33 Then Shape33.Visible = True End If If Text1 = 34 Then Shape34.Visible = True End If If Text1 = 35 Then Shape35.Visible = True End If If Text1 = 36 Then Shape36.Visible = True End If If Text1 = 37 Then Shape37.Visible = True End If If Text1 = 0 Then Shape1.Visible = False Shape2.Visible = False Shape3.Visible = False Shape4.Visible = False Shape5.Visible = False Shape6.Visible = False Shape7.Visible = False Shape8.Visible = False Shape9.Visible = False Shape10.Visible = False Shape11.Visible = False Shape12.Visible = False Shape13.Visible = False Shape14.Visible = False Shape15.Visible = False Shape16.Visible = False Shape17.Visible = False Shape18.Visible = False Shape19.Visible = False Shape20.Visible = False Shape21.Visible = False Shape22.Visible = False Shape23.Visible = False Shape24.Visible = False Shape25.Visible = False Shape26.Visible = False Shape27.Visible = False Shape28.Visible = False Shape29.Visible = False Shape30.Visible = False Shape31.Visible = False Shape32.Visible = False Shape33.Visible = False Shape34.Visible = False Shape35.Visible = False Shape36.Visible = False Shape37.Visible = False End If End Sub