Почему процедура на форме основного проекта срабатывает, а при помещении её в контрол

Private Sub CbAncCntr_KeyDown(KeyCode As Integer, Shift As Integer)
'МАХ обрабатываем введённый символ
On Error GoTo ErrHnd 'МАХ в случае ошибки передаём управление обработчику
  If KeyCode = 9 Or KeyCode = 46 Or KeyCode = 8 Or KeyCode = 27 Then
    SelectCbx CbAncCntr, vbNullString, 0, True 'МАХ сбросим комбобокс
  End If
Exit Sub
ErrHnd: 'МАХ область обработки ошибок
    'МАХ передача управления процедуры ведения лога
    ErrDescr Err.Number, Err.Description, "FrmAnketa.CbAncCntr_KeyDown  Код клавиши " & KeyCode
End Sub

Private Sub CbAncCntr_KeyPress(KeyAscii As Integer)
'МАХ отлавливаем нажатие кнопки пользователем (для подстановки)
On Error GoTo ErrHnd 'МАХ в случае ошибки передаём управление обработчику
 
 If KeyAscii <> 9 And KeyAscii <> 8 And KeyAscii <> 27 And KeyAscii <> 13 Then
  SelectCbx CbAncCntr, Chr$(KeyAscii), CbAncCntr.ListIndex, False
 End If
 KeyAscii = 0 'МАХ стираем символ
Exit Sub
ErrHnd: 'МАХ область обработки ошибок
    'МАХ передача управления процедуры ведения лога
    ErrDescr Err.Number, Err.Description, "FrmAnketa.CbAncCntr_KeyPress  Код клсвиши " & KeyAscii
End Sub

Public Sub SelectCbx(ByVal Cbx As Object, Txt As String, LisInd As Long, Optional Refr As Boolean)
'МАХ процедура. которая должна находить в комбобоксе введённый текст и _
     подставлять в него значения, ну, короче, понятно (срабатывает, когда чувак _
     набирает в комбике текст, а комбик сам под него подставляется) _
     Получает на вход комбобокс и символ текста пользователя, текущий лист индекс. _
     Опционально получает команду на очистку
On Error GoTo ErrHnd 'МАХ в случае ошибки переходим к собственному обработчику ошибок
 
  Static OldCbx As String 'МАХ хранит комбобокс
  Static CbLetter As String 'МАХ хранит текст комбобокса
  Dim I As Long 'МАХ счётчик циклов
 
  If Not Refr Then 'МАХ проверяем необходимость рефреша (если комбик, например, теряет фокус)
    'МАХ проверка, тот ли комбобокс
    If OldCbx = vbNullString Or OldCbx <> Cbx.Name Then
       OldCbx = Cbx.Name
       CbLetter = vbNullString
    End If
       
    CbLetter = CbLetter & Txt 'МАХ создаём поисковый текст
   
    For I = 0 To Cbx.ListCount - 1 'МАХ в цикле ищем текст, начинающийся с введённых символов
      Cbx.ListIndex = I 'МАХ устанавливаем лист индекс
      If LCase(Left(Trim(Cbx.Text), Len(Trim(CbLetter)))) = LCase(CbLetter) Then
        DoEvents
        Cbx.ListIndex = I 'МАХ подставляем итем комбобокса
        DoEvents
        Cbx.Refresh
        DoEvents
        LisInd = I
        Exit For 'МАХ досрочно выходим из цикла
      End If
      Cbx.ListIndex = LisInd 'МАХ возвращаем лист индекс
    Next
   Else
    'МАХ если рефрешим, сбрасываем все переменные
    OldCbx = vbNullString
    CbLetter = vbNullString
  End If
 
Exit Sub
ErrHnd: 'МАХ область обработки ошибок
    'МАХ передача управления процедуры ведения лога
    ErrDescr Err.Number, Err.Description, "FrModGlobalProcedures.SelectCbx Комбобокс " & Cbx.Name & " Текст " & Txt
End Sub