1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 |
'Поменять кнопки мыши местами - Private Declare Function SwapMouseButton& Lib "user32" (ByVal bSwap As Long) SwapMouseButton& 1 ‘поменять местами SwapMouseButton& 0 ‘ вернуть всё как было 'Заблокировать мышь и клаву Option Explicit Private Declare Sub Sleep Lib "kernel32" (ByVal dwMilliseconds As Long) Private Declare Function BlockInput Lib "user32" (ByVal fBlock As Long) As Long Private Sub Form_Load() BlockInput True End Sub |