Pretpostavljam da se radi o Listbox-u sa višestrukom selekcijom, jer u suprotnom ne znam kakav bi bio smisao.
Da bi obradio i prepoznao pritisak na Enter koristiš događaj KeyDown forme. KeyCode parametar za Enter je 13.
Code:
Private Sub ListBox1_KeyDown(ByVal KeyCode As MSForms.ReturnInteger, ByVal Shift As Integer)
If KeyCode = 13 Then ' Da li je pritisnuto Enter
KeyCode = 0 ' Ukida Enter
ListBox1.Selected(ListBox1.ListIndex) = True 'Selektuje tekucu stavku
End If
End Sub
Nije to loše Rembrante, samo što ne bi dodao još malo boje?