I took the shape from a drawing toolbar and applied it on a sheet
directly.
Private Sub RoundedRectangle1_MouseMove(ByVal Button As Integer, ByVal
Shift As Integer, ByVal X As Single, ByVal Y As Single)
RoundedRectangle2.visible=false
RoundedRectangle3.visible=false
RoundedRectangle4.visible=false
RoundedRectangle5.visible=false
End Sub