how to change mouse icon property of form at runtime?

Hi to all,

I am trying to change MouseIcon property of form at runtime. MY code is
Form.MouseIcon = LoadPicture(App.path & "\Code.ico")

but it is not working. No error message.

is there any other method to do this?

Thanks.

HDave

You need to set the MousePointer property to 99 for custom.

VB Code:

Option Explicit
 
Private Sub Command1_MouseMove(Button As Integer, Shift As Integer, X As Single, Y As Single)
    Me.MousePointer = vbCustom
    Me.MouseIcon = LoadPicture(App.Path & "\Code.ico")
End Sub

Thanks Man!!!

hDave

No prob.