XProfan

Declare TIPFONT&,TIPFONT2&
Declare tip1&,tip2&,test&,test2&
TIPFONT&=@CREATE(FONT,MS SANS SERIF,50,0,1,0,0)
TIPFONT2&=@CREATE(FONT,ARIAL,20,0,0,0,0)
CLS
Test&=Createbutton(%hwnd,test,10,10,100,20)
test2&=Createbutton(%hwnd,test2,10,40,100,20)
Tip1&=Create(Tooltip,%HWND,test&,Extra Font :))
Tip2&=Create(Tooltip,%HWND,test2&,.. und noch einer)
sendmessage(tip1&,48,tipfont&,0)
sendmessage(tip2&,48,tipfont2&,0)

While 1

    waitinput

wend

Deleteobject tipfont&
Deleteo

SetFont tip1&,tipfont&