51CTO博客开发
Private Sub Command1_Click()Dim i As Integer For i = 1 To 15 Screen.MousePointer = i MsgBox "Screen.MousePointer =" & i NextEnd Sub
Copyright © 2005-2024 51CTO.COM 版权所有 京ICP证060544号