I developed a VBA piece of code which I call up from a button but I would
like to enhance it a bit so that when I place the cursor on the button the
tooltip will say "change to 100% size" and then when I'm at 100% I would
like the tooltip to say "change to 10% size"
Here's the code I use at present.

Public Sub CrosshairToggle()
Dim PrefsDisplay as AcadPreferencesDisplay
Set PrefsDisplay = ThisDrawing.Application.Preferences.Display
If PrefsDisplay.CursorSize = 10 then
PrefsDisplay.CursorSize = 100
Else: PrefsDisplay.CursorSize = 10
End If
End Sub

Can anyone show me how to change the tooltip

TIA

DonB