用is nothing 判断
测试代码:Private Sub Command1_Click()
Dim aa As FormIf aa Is Nothing Then
MsgBox "null form"
End If
End Sub