Как распознать кнопки мыши?

[longwair]

Как распознать кнопки мыши?

Нашёл на форуме такой код , вставил, но что то он не работает.

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

Dim objDIDev As DirectInputDevice8
Dim MS As DIMOUSESTATE
......
......
objDIDev.GetDeviceStateMouse MS
If MS.Buttons(0) Then ...
If MS.buttons(1) Then ...
If MS.buttons(2) Then ...


[Mikle]

А чем не устраивает событие MouseDown?

[longwair]

О звиняйте, блин вообще забыл про это. Лазил по форуму думал так будет правильней. Спасибо Mikle