В контроле:
- Код: Выделить всё
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. Заранее спасибо.