5:
How can I change the tooltip's visual appearance

#include "AppEvent.ch"
#include "ActiveX.ch"

PROCEDURE Main
 	LOCAL oForm
	LOCAL nEvent := 0, mp1 := NIL, mp2 := NIL, oXbp := NIL
	LOCAL oToolTip

	oForm := XbpDialog():new( AppDesktop() )
	oForm:drawingArea:clipChildren := .T.
	oForm:create( ,,{100,100}, {640,480},, .F. )
	oForm:close  := {|| PostAppEvent( xbeP_Quit )}

	oToolTip := XbpActiveXControl():new( oForm:drawingArea )
	oToolTip:CLSID  := "Exontrol.ToolTip.1" /*{D3973403-2857-44B5-8031-D2C5BF4005E6}*/
	oToolTip:create(,, {10,60},{610,370} )

		oToolTip:VisualAppearance():Add(1,"c:\exontrol\images\normal.ebn")
		oToolTip:Appearance := 16777216/*0x1000000+*/
		oToolTip:ShowToolTip("This is a tooltip that's shown with a different <b>visual apparance</b>.")

	oForm:Show()
	DO WHILE nEvent != xbeP_Quit
		nEvent := AppEvent( @mp1, @mp2, @oXbp )
		oXbp:handleEvent( nEvent, mp1, mp2 )
	ENDDO 
RETURN
4:
How can I get the tooltip being semi-transparent

#include "AppEvent.ch"
#include "ActiveX.ch"

PROCEDURE Main
 	LOCAL oForm
	LOCAL nEvent := 0, mp1 := NIL, mp2 := NIL, oXbp := NIL
	LOCAL oToolTip

	oForm := XbpDialog():new( AppDesktop() )
	oForm:drawingArea:clipChildren := .T.
	oForm:create( ,,{100,100}, {640,480},, .F. )
	oForm:close  := {|| PostAppEvent( xbeP_Quit )}

	oToolTip := XbpActiveXControl():new( oForm:drawingArea )
	oToolTip:CLSID  := "Exontrol.ToolTip.1" /*{D3973403-2857-44B5-8031-D2C5BF4005E6}*/
	oToolTip:create(,, {10,60},{610,370} )

		oToolTip:Transparency := 50
		oToolTip:ShowToolTip("This is a tooltip that's shown with a different <b>visual apparance</b>.")

	oForm:Show()
	DO WHILE nEvent != xbeP_Quit
		nEvent := AppEvent( @mp1, @mp2, @oXbp )
		oXbp:handleEvent( nEvent, mp1, mp2 )
	ENDDO 
RETURN
3:
How can I get displayed a picture inside the tooltip

#include "AppEvent.ch"
#include "ActiveX.ch"

PROCEDURE Main
 	LOCAL oForm
	LOCAL nEvent := 0, mp1 := NIL, mp2 := NIL, oXbp := NIL
	LOCAL oToolTip

	oForm := XbpDialog():new( AppDesktop() )
	oForm:drawingArea:clipChildren := .T.
	oForm:create( ,,{100,100}, {640,480},, .F. )
	oForm:close  := {|| PostAppEvent( xbeP_Quit )}

	oToolTip := XbpActiveXControl():new( oForm:drawingArea )
	oToolTip:CLSID  := "Exontrol.ToolTip.1" /*{D3973403-2857-44B5-8031-D2C5BF4005E6}*/
	oToolTip:create(,, {10,60},{610,370} )

		oToolTip:SetProperty("HTMLPicture","pic1","c:\exontrol\images\zipdisk.gif")
		oToolTip:ShowToolTip("<c><img>pic1</img><br>This is a bit of tooltip with a picture attached.")

	oForm:Show()
	DO WHILE nEvent != xbeP_Quit
		nEvent := AppEvent( @mp1, @mp2, @oXbp )
		oXbp:handleEvent( nEvent, mp1, mp2 )
	ENDDO 
RETURN
2:
How can I get notified once the user clicks a hyperlink inside the tooltip

PROCEDURE OnAnchorClick(oToolTip,AnchorID,Options)
	DevOut( "You have clicked the anchor" )
	DevOut( Transform(AnchorID,"") )
RETURN

#include "AppEvent.ch"
#include "ActiveX.ch"

PROCEDURE Main
 	LOCAL oForm
	LOCAL nEvent := 0, mp1 := NIL, mp2 := NIL, oXbp := NIL
	LOCAL oToolTip

	oForm := XbpDialog():new( AppDesktop() )
	oForm:drawingArea:clipChildren := .T.
	oForm:create( ,,{100,100}, {640,480},, .F. )
	oForm:close  := {|| PostAppEvent( xbeP_Quit )}

	oToolTip := XbpActiveXControl():new( oForm:drawingArea )
	oToolTip:CLSID  := "Exontrol.ToolTip.1" /*{D3973403-2857-44B5-8031-D2C5BF4005E6}*/
	oToolTip:create(,, {10,60},{610,370} )

		oToolTip:AnchorClick := {|AnchorID,Options| OnAnchorClick(oToolTip,AnchorID,Options)} /*Occurs when an anchor element is clicked.*/

		oToolTip:ShowToolTip("This is a bit of text that's displayed when <a A1>ShowToolTip</a> method is called.")

	oForm:Show()
	DO WHILE nEvent != xbeP_Quit
		nEvent := AppEvent( @mp1, @mp2, @oXbp )
		oXbp:handleEvent( nEvent, mp1, mp2 )
	ENDDO 
RETURN
1:
How can I display the tooltip

#include "AppEvent.ch"
#include "ActiveX.ch"

PROCEDURE Main
 	LOCAL oForm
	LOCAL nEvent := 0, mp1 := NIL, mp2 := NIL, oXbp := NIL
	LOCAL oToolTip

	oForm := XbpDialog():new( AppDesktop() )
	oForm:drawingArea:clipChildren := .T.
	oForm:create( ,,{100,100}, {640,480},, .F. )
	oForm:close  := {|| PostAppEvent( xbeP_Quit )}

	oToolTip := XbpActiveXControl():new( oForm:drawingArea )
	oToolTip:CLSID  := "Exontrol.ToolTip.1" /*{D3973403-2857-44B5-8031-D2C5BF4005E6}*/
	oToolTip:create(,, {10,60},{610,370} )

		oToolTip:ShowToolTip("This is a bit of text that's displayed when <b>ShowToolTip</b> method is called.")

	oForm:Show()
	DO WHILE nEvent != xbeP_Quit
		nEvent := AppEvent( @mp1, @mp2, @oXbp )
		oXbp:handleEvent( nEvent, mp1, mp2 )
	ENDDO 
RETURN