Office 2007: Positionsangaben bei MouseMove

[Rolf Grob]

Hallo Zusammen,
Ich habe den unten Aufgeführten Code im Internet gefunden.
Ich möchte einen Bildwechsel bei überfahren mit der Maus bewirken.
Mein Problem:
Ich begreife nicht wo und wie ich die Position und die Grösse meines Bildes eingeben muss.
Bis jetzt reagiert der Effekt rund um das Bild, anstatt auf dem Bild.
(Bin in VBA ein Anfänger)
Könnte mir da bitte jemand helfen.
Langsam bin ich am Verzweifeln !!!

Dim varImageLoaded As Boolean
Private Sub UserForm_MouseMove(ByVal Button As Integer, _
        ByVal Shift As Integer, _
        ByVal X As Single, _
        ByVal Y As Single)
       
If X > Me.Image1.Left And _
    X < Me.Image1.Left + Me.Image1.Width And _
    Y > Me.Image1.Top And _
    Y < Me.Image1.Top + Me.Image1.Height Then

    Me.Image1.Visible = True
Else
    Me.Image1.Visible = False
End If
End Sub

Ich danke für eure Hilfe
Gruss Rolli