MousePointer Example VB

This example sets a custom mouse pointer. The pointer will change when it is placed over the ImageEdit control.

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