高手们帮忙看下,我想实现鼠标双击时SendKeys "^V"来实现粘贴.在notpad里面是可以粘贴上的,可是在比如word excel i

高手们帮忙看下,我想实现鼠标双击时SendKeys "^V"来实现粘贴.下面是代码,运行了下,在notpad里面是可以粘贴上的,可是在所有其他程序比如word excel ie...里面却都粘贴不上,双击后粘贴不过去.为什么呢?要怎么才能在所有程序里都能粘贴过去呢?
或者不知道通过鼠标中键单击实现行不行,中键单击的代码有没哪位大侠有?搜了下没搜到.多谢!!
--------------------------------------------------------------------------------------
'这个是鼠标双击事件代码-在windows任何地方
'以下在模块中

Public Declare Function SetWindowsHookEx Lib "user32" Alias "SetWindowsHookExA" (ByVal idHook As Long, ByVal lpfn As Long, ByVal hmod As Long, ByVal dwThreadId As Long) As Long
Public Declare Function UnhookWindowsHookEx Lib "user32" (ByVal hHook As Long) As Long
Public Declare Function CallNextHookEx Lib "user32" (ByVal hHook As Long, ByVal ncode As Long, ByVal wParam As Long, lParam As Any) As Long
Public Declare Sub CopyMemory Lib "kernel32" Alias "RtlMoveMemory" (lpvDest As Any, ByVal lpvSource As Long, ByVal cbCopy As Long)
Public Type MOUSEMSGS
  X As Long 'x座标
  Y As Long 'y座标
  a As Long
  b As Long
  time As Long 'Window运行时间
End Type
Public Type POINTAPI
  X As Long
  Y As Long
End Type
Public Const WH_MOUSE_LL = 14
'-----------------------------------------
'消息
Public Const HC_ACTION = 0
'鼠标消息
Public Const WM_MOUSEMOVE = &H200
Public Const WM_LBUTTONDOWN = &H201
Public Const WM_LBUTTONUP = &H202
Public Const WM_RBUTTONDOWN = &H204
Public Const WM_RBUTTONUP = &H205
Public MouseMsg As MOUSEMSGS
Public lHook As Long
'----------------------------------------
Private Declare Function GetDoubleClickTime Lib "user32" () As Long
'鼠标钩子
Public Function CallMouseHookProc(ByVal code As Long, ByVal wParam As Long, ByVal lParam As Long) As Long
  Dim pt As POINTAPI, DBLCLK As Long
  Static DBtime As Long
  DBLCLK = GetDoubleClickTime
  If code = HC_ACTION Then
  CopyMemory MouseMsg, lParam, LenB(MouseMsg)
   
  If wParam = 513 And MouseMsg.time - DBtime <= DBLCLK Then
SendKeys "^V"
  End If
  If wParam = 512 Then DBtime = 0
  If wParam = 514 Then DBtime = MouseMsg.time
   
  End If
  If code <> 0 Then
  CallMouseHookProc = CallNextHookEx(0, code, wParam, lParam)
  End If
  
End Function

'-----------------------------------------------
'以下在 form1 中

'安装钩子
Private Sub AddHook()
  '鼠标钩子
  lHook = SetWindowsHookEx(WH_MOUSE_LL, AddressOf CallMouseHookProc, App.hInstance, 0)
End Sub
'卸钩子
Private Sub DelHook()
  UnhookWindowsHookEx lHook
End Sub


Private Sub Command1_Click()
DelHook '卸钩子
End Sub
Private Sub Form_Load()

 AddHook

End Sub

Private Sub Form_Unload(Cancel As Integer)
 DelHook
End Sub

为什么不用ClipBoard对象？