Передать Picture в User Control

[Memfivosfey]

Подскажите пожалуйста, что я неправильно делаю?

В контроле:

Код: Выделить всё

Public Property Let AddPic(Pic As IPictureDisp)
    Set Picture1.Picture = Pic
End Property


В форме:

Код: Выделить всё

Private Sub Command2_Click()
    Set objChat.AddPic = LoadResPicture(101, 0)
End Sub


Пишет ошибку:
Invalid use if property

Скорее всего ошибка в синтаксисе, подскажите как правильно передать картинку из формы в User Control. Заранее спасибо.

[BV]

Let на Set, IPictureDisp на StdPicture.

[Memfivosfey]

спасибо.

[alibek]

Можно и Let оставить, в принципе (правда это не совсем правильно).
Только тогда в форме убери Set.