Option Explicit

Private Type POINTAPI
        x As Long
        y As Long
End Type

Private Declare Function GetCursorPos Lib "user32" (lpPoint As POINTAPI) As Long
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)

Private Const MOUSEEVENTF_ABSOLUTE = &H8000 '  absolute move
Private Const MOUSEEVENTF_LEFTDOWN = &H2 '  left button down
Private Const MOUSEEVENTF_LEFTUP = &H4 '  left button up

Private m_IgnoreMouseDown As Boolean

Private Sub SyntaxEdit1_MouseDown(Button As Integer, Shift As Integer, x As Long, y As Long)
   If Not m_IgnoreMouseDown Then
      ' Not a simulated mouse click, so process click as required
      Select Case Button
      Case vbRightButton
         ' Hide caret to prevent flickering
         Me.SyntaxEdit1.HideCaret = True
      Case vbLeftButton
         ' Perform Left button processing here
      End Select
   End If
End Sub

Private Sub SyntaxEdit1_MouseUp(Button As Integer, Shift As Integer, x As Long, y As Long)
   Dim l_Mouse As POINTAPI
   
   Select Case Button
   Case vbRightButton
      
      m_IgnoreMouseDown = True   ' Set flag to ignore simulated mouse click
   
      Me.SyntaxEdit1.HideCaret = False ' Show the caret
            
      ' Simulate mouse click
      mouse_event MOUSEEVENTF_ABSOLUTE + MOUSEEVENTF_LEFTDOWN, l_Mouse.x, l_Mouse.y, 0, 0
      mouse_event MOUSEEVENTF_ABSOLUTE + MOUSEEVENTF_LEFTUP, l_Mouse.x, l_Mouse.y, 0, 0
      
      m_IgnoreMouseDown = False  ' Set flag to process mouse clicks normally
      
   End Select
End Sub