SftMask/OCX 7.0 - ActiveX Masked Edit Control

MouseIcon1 Sample (VB6)

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