Use this event to use customized Mouse Cursors.
ChangeMouseCursor(mouseOverActiveArea as Boolean,
clicked as Boolean)
Parameters
- mouseOverActiveArea
- True if the Mouse is within the clickable area of the WindowSplitter else false.
- clicked
- True if the Cursor change request came from clicking the clickable area of the WindowSplitter else false.
Remarks
Example of using custom Mouse Cursors
Sub ChangeMouseCursor(mouseOverActiveArea as Boolean,clicked as Boolean)
if clicked then
me.MouseCursor= ClosedHand
elseif mouseOverActiveArea then
me.MouseCursor = OpenHand
else
me.MouseCursor = ArrowCursor
end if
End Sub
If there is any code in this event then the default internal handling is turned off.