新建多窗体的问题,想不通

Question

假设我这样新建了一个窗体
     Dim FrmD As MessengTxt
     Set FrmD = New MessengTxt
     FrmD.Caption = "发送信息"
     FrmD.Show
但我要求,在这个窗体没有关闭时,不可以新建属性相同的窗体,怎样解决呢?说明过程
就像QQ的一样,当打开一个联系人的窗体后,如果在没有关闭的前提下,再点一次相同的一个联系人时,是不可以新建打开窗体的. 
但如果,点击另一个新的不同的联系人,窗体也就可以新建.
 

Answer 1

一个简单例子：
Private Sub Command1_Click()
Dim f As Form
For Each f In Forms
If f.Caption = "发送信息" Then
f.SetFocus
Exit Sub
End If
Next
Dim FrmD As Form1
     Set FrmD = New Form1
     FrmD.Caption = "发送信息"
     FrmD.ShowEnd Sub