Request: Macro to toggle the Crosshair cursor

I asked many moons ago as I use the crosshair a lot, but miss the tooltips that the standard cursor has for certain tasks. Aparently its not possible, but maybe someone will have figured it out ?

Hello,

This code is not perfect, but it works with CorelDRAW X5

Sub cross()
'CorelDRAW X5
Set WshShell = CreateObject("WScript.Shell")
WshShell.SendKeys "^j" & "+{TAB}" & "vtt" & "+{RIGHT}" & "p" & "%c" & "{ENTER}"
End Sub

Greetings! Today is 24 January of 2023

The code above must be improved.

A little later I will write code with more details and explanations so that it will work stably 
on any version of CorelDRAW with minor changes.

I have never tried to change the default cursor in CorelDraw.
But sometimes in macros I use commands =GetUserClick= or =GetUserArea= one of the parameters of these functions is Cursor.
When this command is executed (before clicking), the appearance of the cursor can be changed as follows:

B = ActiveDocument.GetUserClick(X, Y, Shift, 10, False, cdrCursorWinCross)
or
B = ActiveDocument.GetUserArea(X1, Y1, X2, Y2, Shift, 10, False, cdrCursorWinCross)

Regards
Taras