Указатель на объект как аргумент функции

[uk8amk]

Возник вопрос: можно ли в VB6 передать функции указатель на объект, а дальше чтобы эта функция с ним работала. И если да, то как это сделать.
Например, пусть у нас имеется несколько групп похожих объектов типа PictureBox. Функция должна открывать графический файл, получать из него необходимые данные и далее используя ссылку на передаваемый объект выводить на него информацию.
Т.е. моделировать вызов типа

Filepath="C:\drawings.dxf" // путь к открываемому файлу
ObjectPtr=Form1.Picture1(i) // ссылка на объект на который будет выводится графика

MyFunction(FilePath As String, ObjectPtr As Object)

В теле функции должно произойти разыменование указателя объекта и нарисоваться изображение на этом объекте.
Т.е. что-то типа
ObjectPtr.Line(X1,Y1)-(X2,Y2)
где на самом деле должно подразумеваться утверждение
Form1.Picture1(i).Line(X1,Y1)-(X2,Y2)

[Viper]

Да, можно. Причем можно (и нужно) указывать конкретный тип аргумента, например MyFunction(FilePath As String, ByVal PicturePtr As PictureBox)

[alibek]

Я бы ByRef и ByVal поменял местами.

[tyomitch]

Автору: а ещё указатели на объекты нужно присваивать оператором Set.

[uk8amk]

Да, можно. Причем можно (и нужно) указывать конкретный тип аргумента, например MyFunction(FilePath As String, ByVal PicturePtr As PictureBox)

Я так понимаю что тогда обращение к объекту из тела функции примет вид PicturePtr.Line(X1,Y1)-(X2,Y2) ?

Автору: а ещё указатели на объекты нужно присваивать оператором Set.

Если можно то подробнее про это. Просто еще в бейсике с такими вещами не сталкивался.

[tyomitch]

ObjectPtr=Form1.Picture1(i) // ссылка на объект на который будет выводится графика

Set ObjectPtr=Form1.Picture1(i)

[uk8amk]

Ура, работает!
Всем спасибо.