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