[VB6]如何偵測表單是否已開啟?

Question

我在一個MDIForm中開啟一個AForm的MDIChild表單
我要如何偵測!才能知道AForm是否已開啟呢?

Answer 1

Dim f As Form, B As Boolean

For Each f In Forms
　If f.Name = "AForm" Then B = True: Exit For
Next

If B Then MsgBox "AForm開啟中"