[vb6] Screen Recorder

Screen Recorder

Records the Full Screen or Screen "Window" Activity to an AVI video.
I wrote this code very fast and there's room for improvement.
Can see an example video here.
At the moment I got a problem:
Mouse double click event don't work correctly. If someone could help, I'll appreciate.
Suggestion and improvements are wellcome.

Update 1

Code:

---

'ooops
GetAsyncKeyState(vbLeftButton Or vbRightButton)
'Replaced with
GetAsyncKeyState(vbLeftButton) Or GetAsyncKeyState(vbRightButton)

---