Detecting R-Click prior to _FocusChanging

Private Sub Form_Load()
   With Me.ReportControl1
      .Columns.Add .Columns.Count, "Test", 100, True
      
      With .Records.Add
         .AddItem 1
      End With
      With .Records.Add
         .AddItem 1
      End With
      With .Records.Add
         .AddItem 1
      End With
      With .Records.Add
         .AddItem 1
      End With
      With .Records.Add
         .AddItem 1
      End With
      With .Records.Add
         .AddItem 1
      End With
      With .Records.Add
         .AddItem 1
      End With
      With .Records.Add
         .AddItem 1
      End With
      With .Records.Add
         .AddItem 1
      End With
      With .Records.Add
         .AddItem 1
      End With
      With .Records.Add
         .AddItem 1
      End With
      
      .Populate
   End With
End Sub

Option Explicit

Private Declare Function GetSystemMetrics Lib "user32" (ByVal nIndex As Long) As Long
Private Declare Function GetAsyncKeyState Lib "user32" (ByVal vKey As Long) As Integer
Private Const SM_SWAPBUTTON = 23
Private Const VK_LBUTTON = &H1
Private Const VK_RBUTTON = &H2

Private Function RightButtonDown() As Boolean
Dim l_Button As Long

If GetSystemMetrics(SM_SWAPBUTTON) Then
   l_Button = VK_LBUTTON
Else
   l_Button = VK_RBUTTON
End If

RightButtonDown = GetAsyncKeyState(l_Button)
End Function