MouseIcon Example VB

This example shows how to set a custom mouse pointer for the control.

Private Sub cmdChangeMouse_Click()
   Dim strMIcon As String
    strMIcon = "C:\Program Files\DevStudio\VB\samples\PGuide\Optimize\Litening.ico"
    ImgThumbnail1.MouseIcon = LoadPicture(strMIcon)
    ImgThumbnail1.MousePointer = wiMPCustom  'Custom pointer = 99
End Sub