MouseOver with Shape

[MarkCBB]

Hi there VBA Pros,

Is it possible to adapt the following code for MouseOver Image to a Rectangle shape?

Private Sub image1_MouseMove(ByVal Button As Integer, ByVal Shift As Integer, ByVal X As Single, ByVal Y As Single)
Label1.Caption = "Staff database"
 End Sub