Тип данных при передаче массива контролов как параметра - VB

Формулировка задачи:

Добрый день. Такой вопрос меня мучит. Передаю в процедуру как параметр один стандартный контрол (например PictureBox). Никаких проблем:
Private Sub mySub (xPic as PictureBox)
xPic.BackColor=xxxx
End Sub
Но вот если мне надо передать массив из этих PictureBox:
Private Sub mySub (xPics)
Dim xPic as PictureBox
For Each xPic in xPics 
xPic.BackColor=xxxx
Next xPic
End Sub
В принципе жрёт и так, без явных данных по типу. Но как-то это некрасиво. Каким типом нужно объявлять этот xPics из второго примера? Чтоб не торчал там параметр без типа данных. Аналогично, если мне нужно передать как параметр меню. VB жрёт это без типа данных, но как-то же он это в своих недрах определяет. Какой тип данных нужно задавать в этом случае? Спасибо за помощь... и с наступающим!

Код к задаче: «Тип данных при передаче массива контролов как параметра - VB»

textual
Sub xxx()
for i=1 to 1000
 a=Cells(i,1).value
  for ii=1 to i
    n=n+1
    ' ... тут код какойто с проверкой данных
    ' ... так при i=276 у меня n=501 получалось иногда.
    Cells(n,1).value=a
  next ii
next i
end sub

13   голосов, оценка 4.000 из 5


СОХРАНИТЬ ССЫЛКУ