Click and MouseIcon example for Visual Basic

This example demonstrates the Click event and the MouseIcon property.

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