EnableExplicit

Define tch.TC_HITTESTINFO
Define ev
Define item

If OpenWindow(0, 0, 0, 322, 220, "PanelGadget", #PB_Window_SystemMenu | #PB_Window_ScreenCentered)
  PanelGadget     (0, 8, 8, 306, 203)
    AddGadgetItem (0, -1, "Panel 1")
    AddGadgetItem (0, -1,"Panel 2")
      ButtonGadget(2, 10, 15, 80, 24,"Button 1")
      ButtonGadget(3, 95, 15, 80, 24,"Button 2")
    CloseGadgetList()
  Repeat
    ev=WaitWindowEvent()
    Select ev
      Case #WM_MOUSEMOVE
        GetCursorPos_(tch\pt)
        MapWindowPoints_(#Null,GadgetID(0),tch\pt,1)
        item = SendMessage_(GadgetID(0), #TCM_HITTEST,0, tch)
        If item>=0
          MessageRequester("",Str(item),0)
        EndIf
    EndSelect
  Until ev = #PB_Event_CloseWindow
EndIf