Как настроить переключение между элементами управления, созданных на листе?

[RGZZ]

Никак не могу разобраться, как задать переключение между элементами, созданными на листе, а не в форме. Хотелось бы, чтобы между четырьмя элементами в приложенном файле происходило переключение клавишей ТАБ. И, чтобы при нажатии ЕНТЕР, при нахождении в каком-либо ТЕКСТБОКСЕ, происходило бы нажатие на кнопку FILTER

sample.rar

[EducatedFool]

Добавьте к Вашему коду ещё несколько строк:
(не забыв предварительно разгруппировать все элементы, а то не удаётся передать фокус соседнему текстбоксу)

Private Sub First_KeyDown(ByVal KeyCode As MSForms.ReturnInteger, ByVal Shift As Integer)
    If KeyCode = 9 Then KeyCode = 0: Me.Second.Activate ' нажат Tab
    If KeyCode = 13 Then CommandButton2_Click ' нажат Enter
End Sub
Private Sub Second_KeyDown(ByVal KeyCode As MSForms.ReturnInteger, ByVal Shift As Integer)
    If KeyCode = 9 Then KeyCode = 0: Me.First.Activate
    If KeyCode = 13 Then CommandButton2_Click
End Sub

' без этого безобразия текстбоксы при получении фокуса почему-то исчезают с экрана :(
Private Sub Second_GotFocus()
    Me.Second.Text = Me.Second.Text & " ":    Me.Second.Text = Trim(Me.Second.Text)
End Sub
Private Sub First_GotFocus()
    Me.First.Text = Me.First.Text & " ":    Me.First.Text = Trim(Me.First.Text)
End Sub

[RGZZ]

спасибо большое!
При нажатии ентер все фильтруется, но вот при нажатии ТАБ, ругается на меня такими словами:

Run time error '1004'
Activate metod of OLEObject class failed

Private Sub First_KeyDown(ByVal KeyCode As MSForms.ReturnInteger, ByVal Shift As Integer)
If KeyCode = 9 Then KeyCode = 0: Me.Second.Activate ' нажат Tab
If KeyCode = 13 Then CommandButton2_Click ' нажат Enter
End Sub

-------------------------------------

Разобрался! Я по невнимательности разгруппировал не до конца ))

СПАСИБО.