Kod:
Private Function isFormLoaded(strFormName As String)
isFormLoaded = SysCmd(SYSCMD_GETOBJECTSTATE, A_FORM, strFormName)
End FunctionKod:
Const FRM_A = "FORM1"
Const FRM_B = "FORM2"
Dim strArgs As String
If isFormLoaded(FRM_A) Then
'Form1 açık ise yapılacak işlem.
End If
If isFormLoaded(FRM_B) Then
'Form2 açık ise yapılacak işlem.
End If