ПОМОГИТЕ!!!

[Shkolnik]

Код для VB6, но на VB2005 выдает ошибку, но одну.

Код: Выделить всё

Private Declare Function ShowCursor Lib "user32" (ByVal bShow As Long) As Long
Private Declare Function MouseBlock Lib "MouseHook.dll" (ByVal Param As Long) As Long

Private Sub Command1_Click()
'Блокируем "ответ" на события мыши для всей системы (глобально)
Timer1.Interval = 30000 'на 30 сек...
Timer1.Enabled = True
MouseBlock True
'ShowCursor False
End Sub

Private Sub Timer1_Timer()
  'ShowCursor True
  MouseBlock False
  Timer1.Enabled = False
End Sub


Помогите разобраться, что делать.
[Viper] :: Темы с названием "ПОМОГИТЕ!!!" и аналогичным ненесущим никакой информации не имеют права на существование

[Viper]

Вообще-то надо бы указать, что за "одна ошибка", но тебе поможет замена Long на Integer.