vb Screen.MousePointer 属性
Private Sub Command1_Click()
Dim i As Integer
For i = 1 To 15
Screen.MousePointer = i
MsgBox "Screen.MousePointer =" & i
Next
End Sub
Private Sub Command1_Click()
Dim i As Integer
For i = 1 To 15
Screen.MousePointer = i
MsgBox "Screen.MousePointer =" & i
Next
End Sub