Курсор НЕВЕДИМКА

        

Хотите сделать ваш курсор невидимым? Нет проблем! Впишите в раздел формы General Declarations следующий код:

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

Теперь создайте две кнопки для прятания курсора и для показа и впишите в них следующий код:

Private Sub Command1_Click()
  a = ShowCursor(1)
  Do While a >= 0
    a = ShowCursor(0)
  Loop
End Sub

Private Sub Command2_Click()
  a = ShowCursor(0)
  Do While a < 0
    a = ShowCursor(1)
Loop
End Sub

 

              

 

 

 

 

 

 

 

                                                                   ОБСУДИТЬ СТАТЬЮ НА ФОРУМЕ