Private Declare Sub mouse_event Lib "user32" ( _
                     ByVal dwFlags As Long, _
                     ByVal dx As Long, _
                     ByVal dy As Long, _
                     ByVal cButtons As Long, _
                     ByVal dwExtraInfo As Long)
Const MOUSEEVENTF_LEFTDOWN = &H2
Const MOUSEEVENTF_LEFTUP = &H4
Const MOUSEEVENTF_MIDDLEDOWN = &H20
Const MOUSEEVENTF_MIDDLEUP = &H40
Const MOUSEEVENTF_MOVE = &H1
Const MOUSEEVENTF_ABSOLUTE = &H8000
Const MOUSEEVENTF_RIGHTDOWN = &H8
Const MOUSEEVENTF_RIGHTUP = &H10

Sub ld()
      mouse_event MOUSEEVENTF_LEFTDOWN, 0&, 0&, 0&, 0&
End Sub
Sub lu()
      mouse_event MOUSEEVENTF_LEFTUP, 0&, 0&, 0&, 0&
End Sub

Sub LeftClick()
      ld
      lu
End Sub

Sub DblClick()
      LeftClick
      LeftClick
End Sub

Option Explicit
Private Declare Sub keybd_event Lib "user32.dll" ( _
                     ByVal bVk As Byte, _
                     ByVal bScan As Byte, _
                     ByVal dwFlags As Long, _
                     ByVal dwExtraInfo As Long)
Const KEYEVENTF_KEYUP = &H2
Const VK_F2 = 113

Sub Click_F2()
      keybd_event VK_F2, 0, 0, 0
      keybd_event VK_F2, 0, KEYEVENTF_KEYUP, 0
End Sub

Sub Emul_F2()
       Application.SendKeys "{F2}"
       Application.SendKeys "{ENTER}"
End Sub

Sub Emul_F2()
       Dim lCnt As Long
       Do While lCnt < 100
           Application.SendKeys "{F2}"
           Application.SendKeys "{ENTER}"
           lCnt = lCnt + 1
       Loop
End Sub