Function CurrentWindowTitle() As string
  // your application needs permissions for accessibility to make this work!
  
  dim SystemWideElement,FocusedApplicationElement,FocusedWindowElement as AXUIElementMBS
  dim FocusedApplication,FocusedWindow,Title as AXValueMBS
  dim s as String
  dim cs as CFStringMBS
  
  SystemWideElement=AccessibilityMBS.SystemWideAXUIElement
  if SystemWideElement<>nil then
    FocusedApplication=SystemWideElement.AttributeValue(AccessibilityMBS.kAXFocusedApplicationAttribute)
    if FocusedApplication.Type=AccessibilityMBS.kAXUIElementMBSTypeID then
      FocusedApplicationElement=new AXUIElementMBS
      FocusedApplicationElement.Handle=FocusedApplication.Handle
      FocusedApplicationElement.RetainObject
      
      FocusedWindow=FocusedApplicationElement.AttributeValue(AccessibilityMBS.kAXFocusedWindowAttribute)
      
      if FocusedWindow<>nil and AccessibilityMBS.kAXUIElementMBSTypeID=FocusedWindow.Type then
        
        FocusedWindowElement=new AXUIElementMBS
        FocusedWindowElement.Handle=FocusedWindow.Handle
        FocusedWindowElement.RetainObject
        
        Title=FocusedWindowElement.AttributeValue(AccessibilityMBS.kAXTitleAttribute)
        if Title<>nil and Title.Type=kCFStringMBSTypeID then
          cs=new CFStringMBS
          cs.handle=Title.Handle
          cs.RetainObject
          Return cs.str
        end if
      end if
    end if
  end if
End Function