Mouse over funktion

Private Sub Exit1_MouseMove(Button As Integer, Shift As Integer, X As Single, Y As Single)
Exit1.Picture = loadpicture(\"sti\\filnavn\")
End Sub

\'så er det straks værre når den skal registrere at musen tages væk igen, men hvis nu billedet kun ligger på en form kunne man jo gøre sådan her:

Private Sub Form_MouseMove(Button As Integer, Shift As Integer, X As Single, Y As Single)
Exit1.Picture = loadpicture(\"sti\\filnavn\")
End Sub

1000 tak, det virker :)