Send VbLeftButton

Hvordan sender jeg et venstre museklik?

Her har jeg fundet en funtion der sende en tab.

Sub SendTab ()
      Dim regs AS RegType
      regs.ax = &H500        ' Subroutine to push character.
      regs.cx = 15 * 256    ' 15 is scan code for a TAB character.
      regs.cx = regs.cx + 9  ' 9 is ASCII code for TAB character.
      Call Interrupt(&H16, regs, regs) ' Keyboard interrupt.
  End Sub


kan den omskrives til at send et venstre museklik