4 Январь 2009

Как скрыть/показать курсор?

Мышь |  Таги: , ,

Как скрыть/показать курсор?

Option Explicit

Private Declare Function ShowCursor Lib _
    "user32" (ByVal bShow As Long) As Long

Private Sub Command1_Click()
ShowCursor 0
End Sub

Private Sub Command2_Click()
ShowCursor 1
End Sub


Оставить комментарий

Я не робот.