Обект, като аргумент.

Мога ли да задам на процедура или функция, като аргумент обект, или свойство на обект?

Може.
Например можеш да предадеш форма като аргумент и получаваш и контролите в нея

Private Sub ObjectSample(objFrm as Object)
MsgBox objFrm.Item(2).Name ; дава името на 2-та контрола във формата
End Sub
.
.
.

ObjectSample(FormataMi) ; вика процедурата

Благодаря

Благодаря за отговора, но не ми свърши работа форма, като аргумент.
Ще се конкретизирам малко повече.
Искам в обща процедура да променям една променлива(което не е проблема) и обект(Image). Накратко, искам да променям един и същ атрибут на различни обекти(Images). Искам в процедурата да ползвам:
ImeNaObject.Picture = LoadPicture("E:\......")
ImeNaObject да е като аргумент.
Много ли искам?
Едно друго нещо също би ми спестило редове и то е:
Как мога на няколко променливи да задавам една и съща стойност?
Вместо
а = 1
в = 1
... да пиша "а" и "в" и двете имат стойност 1

Благодаря Ви!

Private Sub Command1_Click()

    LoadImages Image1

    LoadImages Image2

End Sub



Private Sub LoadImages(imaA As Image)

    imaA.Picture = LoadPicture("e:\My Documents\f92.jpg")

End Sub

Щирлиц