Private Sub Command1_Click()
Dim i As Integer
For i = 1 To 15
Screen.MousePointer = i
MsgBox "Screen.MousePointer =" & i
Next
End Sub
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