一个用代码生成手形光标（VB、VBA通用） -------------------------------------------------------------------------------- Option Explicit Private Declare Function SetCursor Lib "user32" (ByVal hCursor As Long) As Long Private Sub Command1_MouseMove(Button As Integer, Shift As Integer, X As Single, Y As Single) SetCursor 65581 End Sub