XProfan

Def &SS_NOTIFY $0100
Randomize
Cls
Declare pic&,st&,tip&
Declare bmp$
ChDir $WinPath
AddFiles *"*.jpg"
bmp$ = ListBoxItem$(Rnd(%GetCount + 1))
Print bmp$
pic& = Create("hSizedPic",-1,bmp$,800,800,1)
st& = Create("Bitmap",%hwnd,pic&,0,60)
Window 0,0 - %bmpx + 40,%bmpy + 130
Print Hex$(GetStyle(st&))
SetStyle st&,GetStyle(st&) | &SS_NOTIFY
Print Hex$(GetStyle(st&))
tip& = Create("ToolTip",%hwnd,st&,bmp$)
WaitInput
DeleteObject pic&