'Mousehover code using onhint
declare sub imagemouseover(Hint AS STRING)
CREATE Form AS QFORM
    Caption = "Form1"
    Width = 505
    Height = 450
    Center
    hint = "image"
    onhint = imagemouseover
    CREATE Image1 AS QIMAGE
        BMP = "normal.bmp"
        Left = 31
        Top = 12
        Width = 100
        Height = 100
        Hint = "image1"
        stretch = 1
    END CREATE
    CREATE Image2 AS QIMAGE
        BMP = "normal.bmp"
        Left = 141
        Top = 12
        Width = 100
        Height = 100
        stretch = 1
        Hint = "image2"
        END CREATE
END CREATE
Form.ShowModal

sub imagemouseover(Hint AS STRING)
' maybe use 'select case' to change the images (as a more elegant alternative?)
if hint = "image1" then
image1.bmp = "hover.bmp"
else
image1.bmp = "normal.bmp"
end if

if hint = "image2" then
image2.bmp = "hover.bmp"
else
image2.bmp = "normal.bmp"
end if

end sub