Hola, Juan:
La colección OpenForms te indica los formularios que actualmente se encuentran abiertos:
Public Function IsFormOpen(ByVal formName As String) As Boolean
' Recorremos la colección de formularios
' actualmente abiertos.
'
For Each frm As Form In My.Application.OpenForms
If (frm.Name.ToLower() = formName.ToLower()) Then _
Return True
Next
Return False
End Function
Para saber si un formulario concreto se encuentra abierto, llamarías a la función de la siguiente manera:
Dim bln As Boolen = IsFormOpen("Form234")
El valor de la variable «bln» te indicará si está abierto (True) o no (False).
Un saludo
Enrique Martínez [MS MVP - VB]