Real Software Forums

Sub DoRequestUserAttention()
  const kCocoaLib = "Cocoa.framework"
  const NSCriticalRequest = 0
  const NSInformationalRequest = 10
  
  Declare Function NSClassFromString Lib kCocoaLib (aClassName as CFStringRef) as Ptr
  Declare Function sharedApplication Lib kCocoaLib selector "sharedApplication" (aClassID as Ptr) as Ptr
  Declare Sub requestUserAttention Lib kCocoaLib selector "requestUserAttention:" (aClassID as Ptr, aNSRequestUserAttentionType as Integer)
  
  requestUserAttention(sharedApplication(NSClassFromString("NSApplication")), NSCriticalRequest)
End Sub