各位搞过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,Y As Single) If Button = 0 Then SetCursor 65581 End Sub