Click and MouseIcon example for Visual Basic

This example demonstrates the Click event and the MouseIcon property.

Private Sub LEADRasterView1_Click()
    'This example, on a click event, toggles between the default 
    'mouse pointer and a loaded icon.
    If LEADRasterView1.MousePointer = 0 Then
        LEADRasterView1.MouseIcon = LoadPicture("c:\vb\icons\arrows\point04.ico")
        LEADRasterView1.MousePointer = 99
    Else
        LEADRasterView1.MousePointer = 0
    End If
End Sub