Forms VisualBasic Script

Sub m()
    If Not IsLoaded("frmClients") Then
        msgBox "You must load this form from the Projects form", _
            vbCritical, "Warning"
    End If
End Sub
Public Function IsLoaded(strFormName As String) As Boolean
    Const FORMOPEN = -1
    Const FORMCLOSED = 0
    If SysCmd(acSysCmdGetObjectState, acForm, strFormName) <> FORMCLOSED Then
        IsLoaded = True
    Else
        IsLoaded = False
    End If
End Function