自制控件　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)