私有聲明函數FindWindow Lib“user 32”別名“FindWindowA”u
(字符串形式的ByVal lpClassName，字符串形式的ByVal lpWindowName)壹樣長
私有聲明函數是窗口庫“user 32”(ByVal hwnd As Long)
Dim lngAns壹樣長
LngAns = FindWindow(vbNullString，"表單標題")
lngAns = IsWindow(lngAns)
如果lngAns & lt& gt那麽0
MsgBox "表單已經加載！"，vbOKOnly
結束
其他
MsgBox "表單未加載！"，vbOKOnly
如果…就會結束
VB6方法2 Dim frm As Object
Dim blnFlag為布爾值
對於表單中的每個frm
如果frm。Caption = "表單標題"然後
blnFlag = True
為...退出
如果…就會結束
下壹個frm
如果blnFlag那麽
MsgBox“表單已加載”
其他
MsgBox“表單未加載”
結束if VB。NET的代碼(簡單需要改，VB6也可以運行)公共函數midchi (byval frmname as string)為Boolean。
昏暗的窗戶。表格表格
對於我內心的每壹個想法。MdiChildren
如果奇夫姆。那麽Name = frmName
如果奇夫姆。那時可見
奇夫姆。激活()
其他
奇夫姆。顯示()
如果…就會結束
返回True
如果…就會結束
然後
返回False
end function private Sub menuitem 7 _ Click(ByVal sender As System。對象，ByVal e作為系統。EventArgs)處理MenuItem7。點擊
如果midchi(“frm computer”)那麽
出口接頭
如果…就會結束
Dim frmCp作為新的frmComputer
frmCp。MdiParent =我
frmCp。顯示()
末端接頭