Procedure.l GadgetToolTipEx(hWnd.l,hGadget.l,Text.s)
  Protected Info.TOOLINFO
  Protected hTip.l
  
  hTip = CreateWindowEx_(#WS_EX_TOPMOST,@"ToolTips_Class32",@"",#WS_POPUP|#TTS_ALWAYSTIP|#TTS_NOPREFIX,#CW_USEDEFAULT,#CW_USEDEFAULT,#CW_USEDEFAULT,#CW_USEDEFAULT,hWnd,0,GetModuleHandle_(0),0)
  Info\cbSize   = SizeOf(TOOLINFO)
  Info\uFlags   = #TTF_SUBCLASS|#TTF_IDISHWND
  Info\hWnd     = hGadget
  Info\uID      = hGadget
  Info\hInst    = GetModuleHandle_(0)
  Info\lpszText = @Text
  SendMessage_(hTip,#TTM_ADDTOOL,0,@Info)
  SendMessage_(hTip,#TTM_SETMAXTIPWIDTH,0,1024)
  
  ProcedureReturn #True
EndProcedure

If OpenWindow(0,0,0,500,250,"Window",#PB_Window_SystemMenu|#PB_Window_ScreenCentered)
  ButtonGadget(1,10,10,100,20,"Test-Button",0)
  
  GadgetToolTipEx(WindowID(0),GadgetID(1),"ToolTip mit"+Chr(13)+"Zeilenumbruch")
Repeat : Until WaitWindowEvent() = #PB_Event_CloseWindow
EndIf