RE:ver si un formulario esta cargado
Esta funcion que hize checa si esta o no un formulario abierto
Se usa :
If Checa_Formulario(Nombre) = 1 Then
' Si esta abierto
Else
' No esta abierto
End If
Public Function Checa_Formulario(Nombre As String) As Integer
For i = 0 To Forms.Count - 1
If Forms(i).name = Nombre Then
Checa_Formulario = 1
Exit Function
End If
Next i
Checa_Formulario = 0
End Function