how to detect a running form

[Maileen]

Hi,

I would like to know how can i detect if a particular form is not already running ?
i have a MDI application and some MID child..but i do not want to have 100 MDI child of the same form, so i need to control it.
please, let me know how to detect is form FSLA is already running or not.

thanks,
Maileen

 

[Stanav]

Hi Maileen,
You can do this by dectecting the childform's text value from the parent
form

Private Sub IsFormOpen(ByVal formtext As String) As Boolean
Dim isopen As Boolean = False
Dim i As Integer
Dim myKids As Form()
myKids = Me.MDIChildren
For i = 0 To myKids.Length - 1
If myKid(i).Text = formtext Then
isopen = True
Exit For
End If
Next
Return isopen
End Sub