自制控件　Picture属性　提示属性使用无效！解决方法

自制控件　Picture属性　提示属性使用无效！
Public   Property   Set   glidePicture(Pic   As   IPictureDisp)
    Set   ImageM(1).Picture   =   Pic
    PropertyChanged   "glidePicture "
    End   Property
       
    Public   Property   Get   glidePicture()   As   IPictureDisp
    Set   glidePicture   =   ImageM(1).Picture
    End   Property

在FORM1中用的是资源
　USERROOM1.glidePicture=LoadResPicture(102,   vbResIcon)

[解决办法]
vbResIcon改为vbResBitmap试试
[解决办法]
set USERROOM1.glidePicture=LoadResPicture(102, vbResIcon)
[解决办法]
你要在前面加set的.如:set USERROOM1.glidePicture=LoadResPicture(102, vbResIcon)