mouse icon

how can I do to change the mouse icon when the mouse pass in the label...

thank´ss

VB Code:

Private Sub Label1_MouseMove(Button As Integer, Shift As Integer, X As Single, Y As Single)
    Label1.MousePointer = vbCustom
    Label1.MouseIcon = LoadPicture("C:\test.cur")
End Sub