Private Sub Command1_Click()
Dim Myobject As Object
Set Myobject = Form1
If Myobject Is Nothing Then
MsgBox "Myobject为空"
Else
MsgBox "Myobject不为空"
End If
End Sub