EnableExplicit

Global OldStatusBar

Procedure.l  LoWord (var.l)
  ProcedureReturn var & $FFFF
EndProcedure

Procedure SubClassedStatusBar(hwnd, msg, wParam, lParam)
  Protected result
  Protected lParamLo
  result = CallWindowProc_(OldStatusBar, hwnd, msg, wparam, lparam)
  lParamLo = LoWord(lParam)
  Select msg
    Case #WM_LBUTTONUP
      If lParamLo>0 And lParamLo<100
        MessageRequester("","Auf StatusBar 1 wurde gedrückt.",0)
      ElseIf lParamLo>100 And lParamLo<200
        MessageRequester("","Auf StatusBar 2 wurde gedrückt.",0)
      EndIf
  EndSelect
  ProcedureReturn Result
EndProcedure

If OpenWindow(0,0,0,500,250,"Window",#PB_Window_SystemMenu|#PB_Window_ScreenCentered)
  If CreateStatusBar(1,WindowID(0))
    AddStatusBarField(100)
    AddStatusBarField(100)
  EndIf
  
  OldStatusBar = SetWindowLongPtr_(StatusBarID(1), #GWL_WNDPROC, @SubclassedStatusBar())
Repeat : Until WaitWindowEvent() = #PB_Event_CloseWindow
EndIf