我在网上找过这个东西，但是好多都是没有声明的函数，或引用对象
那位大虾路过，帮帮忙！

private sub IsLoad()
'判断FormX窗体是否载入, 如载入则显示,反之载入再显示
Dim FrmX As Form

For Each FrmX In Me.MdiChildren
If TypeOf FrmX Is FormX Then
FrmX.Activate()
Exit Sub
End If
Next
FrmX = New FormX
FrmX.MdiParent = Me
FrmX.Show()
end sub

用到线程知识！