how to change mouse icon property of form at runtime?

[hdave]

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

[RobDog888]

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

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

[hdave]

Thanks Man!!!

hDave

[RobDog888]

No prob.