XProfan

Def &SS_NOTIFY $0100
Randomiser
Cls
Déclarer pic&,st&,tip&
Déclarer bmp$
ChDir $WinPath
AddFiles *"*.jpg"
bmp$ = ListBoxItem$(Tour(%GetCount + 1))
Imprimer bmp$
pic& = Créer("hSizedPic",-1,bmp$,800,800,1)
st& = Créer("Bitmap",%hwnd,pic&,0,60)
Fenêtre 0,0 - %bmpx + 40,%bmpy + 130
Imprimer Hex$(GetStyle(st&))
SetStyle st&,GetStyle(st&) | &SS_NOTIFY
Imprimer Hex$(GetStyle(st&))
tip& = Créer("ToolTip",%hwnd,st&,bmp$)
WaitInput
DeleteObject pic&