如何判断一个Picture对象是否为空

Question

如何判断一个Picture对象是否为空，我根据是否为Nonthing来判断，但提示有错。代码如下：Public Property Set Picture(ByVal New_Picture As Picture)
If New_Picture = Nonthing Then
    msgbox "None Picture"
End If 
    Set Usercontrol.Picture = New_Picture
    PropertyChanged "Picture"
End Property

Answer 1

呵呵，不行啊，"None"不认为是个Null值

Answer 2

New_picture.handle=0可以吗
你可以调试下,看下stdPicture.handle为什么值

Answer 3

If New_Picture is Nothing Then
    msgbox "None Picture"
End IfIf New_Picture.Type=vbPicTypeNone Then
    msgbox "None Picture"
End If

Answer 4

已解决了！
完整代码如下
Public Property Set Picture(ByVal New_Picture As Picture)
temppic.picture=new_picture
If temppic.picture= empty Then
    msgbox "None Picture"
End If 
    Set Usercontrol.Picture = temppic.picture
    PropertyChanged "Picture"
End Property