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