سؤال في منع فتح اكثر من نافذه

لو سمحتم عندي نافذف midform

وضايفه عليها قوائم و وشريط أدوات

المشكله اني ابغا المستخدم لما يكون فاتح فورمه من midform مايقدري يفتح أكتر من وحده midchild مع midform يعني لو جى يفتح فورمه تانيه يطلب منو انو يقفل الي فاتحا ولما يقفل ماتبقى غير midform ويصير لما يضغط على زر فشريط القوائم أو امر فشريط الادوات يفتح معاه ... :blink:

Private Sub Toolbar1_ButtonClick(ByVal Button As MSComctlLib.Button)

'If (إذا كان في أحد الفورمات فاتحه) Then
'MsgBox ("Close This First Please ..")

'Else

Static i As Integer
Select Case Button.Key

Case Is = "D"
i = (i + 1) Mod 2
If i = 1 Then
DiscountCards.Show
Else
DiscountCards.Hide
End If

Case Is = "e"
i = (i + 1) Mod 2
If i = 1 Then
EL.Show
Else
EL.Hide
End If

End Select

'End If
End Sub