This sample illustrates overriding the mouse cursor.
This is not an executable sample, so a complete project is not provided. These statements are intended to show basic concepts and the syntax used.
Private Sub Form_Load()
' A picture box is used to hold the icon for the MouseIcon property. A suitable
' icon has been defined in the picture box using its Picture property.
Set SftMask1.MouseIcon = Picture1.Picture
SftMask1.MousePointer = sftCustom
' Or use a predefined icon
SftMask1.MousePointer = sftCross
End Sub
On
Off