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