Visual Basic - como saber cuando un formulario esta abierto.

hola a todos, necesito saber cuando un formulario esta activo o abierto.gracias

function EstáActivo(byval sFormName$) as boolean
EstáActivo=(lcase(mimdi.activeform.name)=lcase(sFormName))
end function

function EstáCargado(byval sFormName$) as boolean
EstáCargado=false
dim oForm as form
for each oForm in vb.forms
if lcase(oform.name)=lcase(sFormName) then
EstáCargado=True
exit function
end if
next oForm
end function