如何判断一个窗口变量是否存在?

Question

Option Explicit
Public s As BooleanPrivate Sub Form_Load()
    s = False
End Sub在模块中如何判断窗口变量是否存在?

Answer 1

没看懂你的意思。。可以在模块中定义窗口，然后调用。。dim f as new from1
f.s=false

Answer 2

自己解决,还是要谢谢大家Public Function isThere(obj As Object, name As String) As Boolean
Dim result As Boolean
On Error Resume Next
Err.Number = 0
CallByName obj, name, VbGet
If Err.Number > 0 Then
    result = False
Else
    result = True
End If
Err.Number = 0
isThere = result
End Function