Como hacer visible un picture1

[fedefrankk]

Hola a todos, tengo 15 pictures en un form, invisibles, en un text le pongo 2 y me muestra dos picture,1,2.. lo he echo con selec case asique imaginen el codigo es largisimo..

aca un pedasito

Select Case Text3

Case 1
Picture1.Visible = True
Label5.Visible = True
Picture1.Visible = True
Picture2.Visible = False
Picture3.Visible = False
Picture4.Visible = False
Picture5.Visible = False
Picture6.Visible = False
Picture7.Visible = False
Picture8.Visible = False
Picture9.Visible = False
Picture10.Visible = False
Picture11.Visible = False
Picture12.Visible = False
Picture13.Visible = False
Picture14.Visible = False
Picture15.Visible = False
Label6.Visible = False
Label7.Visible = False
Label8.Visible = False
Label9.Visible = False
Label10.Visible = False
Label11.Visible = False
Label12.Visible = False
Label13.Visible = False
Label14.Visible = False
Label15.Visible = False
Label16.Visible = False
Label17.Visible = False
Label18.Visible = False
Label19.Visible = False
...........
Lo que quiero hacer es mostrar los pictures con un for, pero me sale error aca les dejo el codigo

Private Sub Text3_Change()
For m = 0 To Val(Text3)
Picture (Val(Text3)) & .Visible = True
Next tm

End Sub
Saludos a todos