vb中怎么才能有手型的光标

vb中如何才能有手型的光标？

各位搞过VB编程的同学肯定知道，vb默认是调不出手型光标（如网页上的链接光标）的，下面这个方法可以帮你做到。

Private Declare Function SetCursor Lib "user32" (ByVal hCursor As Long) As Long
Private Sub Command1_MouseDown(Button As Integer, Shift As Integer, X As Single, Y As Single)
If Button = 1 Then SetCursor 65581
End Sub
Private Sub Command1_MouseMove(Button As Integer, Shift As Integer, X As Single, Y As Single)
If Button = 0 Then SetCursor 65581
End Sub