LHSP‡ sample double click?get the current mouse position in clipboard and double click itpcspeakýð?ÿ?Option Explicit Type POINTAPI x As Long y As Long End Type ' declare Win32 API functions Declare Function GetCursorPos Lib "user32" _ Alias "GetCursorPos" (lpPoint As POINTAPI) As Long Sub Main Dim pt As POINTAPI GetCursorPos pt SendKeys "{DoubleClickLeft " & pt.x & "," & pt.y & "}" End Sub