Works like a charm..great code...only one small drawback..it works the same as my suggestion because your code removes the possibility of using left click to select the item for other purposes.

I see you write script...
you forgot a few rem marks '
and used <...
the mouse down event with corrected rems(') is:


If Button = 2 Then '<-- if right mouse button is clicked
Call mouse_event(MOUSEEVENTF_LEFTDOWN, 0, 0, 0, ex) '<-- clicks left button down
Call mouse_event(MOUSEEVENTF_LEFTUP, 0, 0, 0, ex) '<-- clicks left button up
DoEvents
Form1.PopupMenu Form1.rightclk, 1
End If



[Edited by HeSaidJoe on 06-11-2000 at 09:15 PM]