程序代码：

*cFormName 表单的文件名；mFormName 表单引用名；cPublic 表单名的全局宏替换公式*

 Function runform                       
    Para cFormName,mFormName
    cPublic="Public "+mFormName
    &cPublic
    If !(Type("&mFormName.")="O" and !Isnull(&mFormName.))
        Do Form &cFormName Name &mFormName
    Else
        If &mFormName..WindowState=1
            &mFormName..WindowState=0
        Endif
        &mFormName..Show
    ENDIF
ENDFUNC