)) Then
                  ctl.fTrack 0, 0
               End If
            End If
            m_hWndMenuLoopInitControl = 0
            
         End If
      End If
      
   End If
End Sub

Public Function ProcessAccelerators(ByVal vKey As Long, ByVal shiftState As
 Long) As Boolean
Dim lhWnd As Long
   ' Find active form
   lhWnd = getActiveEnabledForegroundWindow()
   If Not (lhWnd = 0) Then
      Dim iBtn As Long
      Dim cBtn As cButtonInt
      Dim cMatch As cButtonInt
      Dim ctl As vbalCommandB