Здравствуйте, Гробенюк Александр Александрович!
добавьте на форму один комбобокс и лэйблу. В форм-лоад - забиваются значения в комбо. Событие - по нажатию клавиш. Ну и идет проверка - по жажатию каких именно.

Приложение:
Private Sub Combo1_KeyDown(KeyCode As Integer, Shift As Integer) If (KeyCode = vbKeyDown) Or (KeyCode = vbKeyUp) Then Label1 = Combo1.Text End IfEnd SubPrivate Sub Form_Load()Combo1.AddItem ("1")Combo1.AddItem ("2")Combo1.AddItem ("3")Combo1.AddItem ("4")End Sub

Здравствуйте, Гробенюк Александр Александрович!

Например, перед этим мы задали содержимое Combo1 на форме Forme :

Forme.Combo1.Clear
Forme.Combo1.AddItem "Ctroka 0"
Forme.Combo1.AddItem "Ctroka 1"
Forme.Combo1.AddItem "Ctroka 2"
Forme.Combo1.AddItem "Ctroka 3"

После вызова формы перемещение и выбор строки можно производить как мышкой, так и с клавиатуры. В обоих случаях возникнет событие Click, которое можно обработать в процедуре:

Private Sub Combo1_Click()
Dim s As String
Dim n As Long

s = Forme.Combo1.Text ‘получаем содержимое выбранной строки
n = Forme.Combo1.ListIndex ‘получаем номер строки - нумерация с 0

Forme.Label1=s ‘изменяем на новую строку

End Sub

При заполнении Combo следует помнить, что индекс начинается с 0 и увеличивается автоматически при добавлении строк. На экране отображается в такой же последовательности, если не оговорено в условиях.

С уважением.

Здравствуйте, Гробенюк Александр Александрович!
Используйте событие Change(см. приложение)

Приложение:
Private Sub Combo1_Change()Label1 = Combo1.TextEnd Sub