You should be able to drop a label on your form and add the following MouseMove event:
Private Sub Label0_MouseMove(Button As Integer, _
Shift As Integer, X As Single, Y As Single)
Works fine on my end. Are you possibly calling ChangeCursorDefault instead of ChangeCursorHand?