Procedure.s GetToolTipText(id)  
	Protected hTP.l,hParent.l  
	Protected Buffer.s,ti.TOOLINFO  
	!EXTRN _PB_Object_GetThreadMemory@4  
	!EXTRN _PB_Gadget_Globals  
	!MOV   Eax,[_PB_Gadget_Globals]  
	!PUSH  Eax  
	!CALL  _PB_Object_GetThreadMemory@4  
	!MOV Esi,[Eax]  
	!MOV [p.v_hParent],Esi  
	!MOV Eax,[Eax+24]  
	!MOV [p.v_hTP],Eax  
	Buffer = Space(255)  
	ti\cbSize = SizeOf(TOOLINFO)  
	ti\hwnd = hParent  
	ti\uId = GadgetID(id)  
	ti\lpszText = @Buffer  
	SendMessage_(hTP,#TTM_GETTEXT,0,@ti)  
	ProcedureReturn Buffer  
EndProcedure  
 
 
hwnd = OpenWindow(0,0,0,300,300,"")  
 
CreateGadgetList(hwnd)  
 
If ButtonGadget(0,10,10,100,24,"")  
	GadgetToolTip(0,"ToolTip")  
EndIf  
 
Debug GetToolTipText(0)  
 
Repeat  
	event = WaitWindowEvent()  
Until event = #PB_Event_CloseWindow