Function IsCurrentProjectActive() As Boolean
Dim MyStr As String
    
    'Create a buffer
    MyStr = String(100, Chr$(0))
    'Get the windowtext of active window
    GetWindowText GetForegroundWindow, MyStr,  100 
    'strip the rest of buffer
    MyStr = Left$(MyStr, InStr(MyStr, Chr$( 0 )) -  1 )
    IsCurrentProjectActive = IIf((InStr(MyStr,  "Microsoft Visual Basic" ) <>  0 ) And (InStr(MyStr, Mid(Application.CurrentProject.Name,  1 , Len(Application.CurrentProject.Name) -  4 )) <>  0 ), True, False) Or IIf(GetForegroundWindow = Application.hWndAccessApp, True, False)
End Function