VB6 - zmiana wielkości kontrolek

Fragment kodu:

    For a = 1 To 300                                                                                 
       Picture1.Height = Picture1.Height + zmH
       Picture1.Width = Picture1.Width + zmW
       Picture1.Left = Picture1.Left + zmL
       Picture1.Top = Picture1.Top + zmT
       Picture1.ZOrder                                                                               
    Next a

Mam tych picturebox-ów kilkadziesiąt od picturebox1 do picturebox60 jak zrobić aby ta pętla mogła być wywołana przez stały fragment kodu ( to się chyba nazywa procedura - chodzi mi o oddzielny SUB ) przed wejściem w którego podaję tylko raz numer picturebox-a ? innymi słowy jak powinien wyglądać ten fragment kodu aby aby działał dla każdego podanego numeru kontrolki ?

Musisz zrobić tablicę kontrolek. Najłatwiej. Wtedy robisz przez picBox(1).Width =100
Wiem, że można było się też odwołać przez nazwę zapisaną w stringu, ale już ponad 10 lat nie programuję w VB, więc zapomniałem. Musiałbym stare kody przezjrzeć...

Przez nazwę to tak:

Jeżeli sub na w ciele formularza:

dim n as string
n=1
zmienrozmiar n

Sub zmienrozmiar(byval p as string)
    Me.Controls("Picture" & p).Height = Me.Controls("Picture" & p).Height + zmH
End Sub

Jeżeli odwołujesz się do innnego formularza to zamien me na nazwę formularza

Wielkie dzięki koledzy ( jakie to proste jak już się wie jak ;)