Hola!
hay un bucle que te recorre los formularios abiertos, quizás lo puedas usar para lo que quieres:
Código:
For i = My.Application.OpenForms.Count - 1 To 1 Step -1
Dim form As Form = My.Application.OpenForms(i)
MsgBox("El formulario " & form.Name.ToString & " está abierto")
Next i
Saludos!!