Private Const GWL_STYLE As Long = -16
Private Const WS_DISABLED As Long = &H8000000
Private Declare Function GetWindowLong Lib "user32.dll" Alias "GetWindowLongA" (ByVal hwnd As Long, ByVal nIndex As Long) As Long
Public Property Get NonModalAllowed() As Boolean
Dim oForm As Form
NonModalAllowed = True
For Each oForm In Forms
If (GetWindowLong(oForm.hwnd, GWL_STYLE) And WS_DISABLED) = WS_DISABLED Then
NonModalAllowed = False
Exit Property
End If
Next oForm
End Property