Form1 Form1 Form15 List1 Label1 =Clicking with the right mouse-button is the same as the left. @ Form_Load4 MList1t VBMsg1 SubClasshWnd VBMsg1_WindowMessage hWindow\ wparamD lparamn RetVal CallDefProc SendMessage WM_MOUSEFIRST WM_MOUSEMOVEX WM_LBUTTONDOWNj WM_LBUTTONUPz WM_LBUTTONDBLCLK WM_RBUTTONDOWN WM_RBUTTONUP WM_RBUTTONDBLCLK WM_MBUTTONDOWN WM_MBUTTONUP WM_MBUTTONDBLCLK WM_MOUSELAST Command1_Click hebsAuf WM_NCHITTEST9 WM_SETCURSOR Form1 MList1_Click MList1_SelChange MList1_MouseDowno Button Shift GetProfileString SName KName WNetGetUser List1 List1_Click MessageText LoWord HiWord List1_MouseDown WM_MOUSEACTIVATE lppoint POINTAPIa List1_Mouseup ScaleMode TwipsPerPixelX TwipsPerPixelY Screen LLong MyPointF c:\win310\system\win32s\mpr.dll Form_Load Scalemode 3 (Pixel) is important!u List1_Mouseup VBMsg1_WindowMessage Debug.Print VBMsg1.MessageText(msg), , Hex$(wparam), Hex$(lparam), VBMsg1.LoWord, VBMsg1.HiWordA