COMO SABER SE O FORM ESTA ABERTO?

USUARIO.EXCLUIDOS 04/06/2004 13:18:10
#28166 Resposta escolhida

public sub FormAberto(Byval NomeForm as string)
dim Frm as form

for each frm in forms
if ucase(frm.name) = ucase(nomeform) then exit for
next frm

if not frm is nothing then
msgbox "form carregado - se visivel teste abaixo"
if frm.visible then
msgbox "Form visivel"
endif
set frm=nothing
endif
end sub