extPos)
    GetCaption = sOut
            
End Function

Private Sub ctlPopMenu_ItemHighlight(ItemNumber As Long, bEnabled As Boolean,
 bSeparator As Boolean)
   If Not (bSeparator) Then
      lblStatus.Caption = "Highlighted " &amp; ctlPopMenu.Caption(ItemNumber)
   End If
End Sub

Private Sub ctlPopMenu_MenuExit()
   lblStatus.Caption = ""
End Sub

Private Sub ctlPopMenu_SystemMenuClick(ItemNumber As Long)
    If (ItemNumber = m_lAboutId) Then
        MsgBox "vbAccelerator PopMenu component MDI demonstrat