Me vi en la necesidad de saber si un form esta abierto, asi que cree esta funcion para ello. Funcion 'Devuelve un valor booleano que indica si el form esta abierto Public Function EstaAbierto(ByVal Myform As Form) Dim objForm As Form Dim blnAbierto As Boolean = False blnAbierto = False For Each objForm In My.Application.OpenForms If (Trim(objForm.Name) = Trim(Myform.Name)) Then blnAbierto = True End If Next Return blnAbierto End Function Implementacion 'frmNuev...
Tres mundos distintos en una sola realidad.