Ma non funziona già così ???

Ti basta popolare la lista...
codice:
Private Sub Form_Load()
For cont = 65 To 80
  List1.AddItem CStr(Chr(cont))
  List1.AddItem CStr(Chr(cont))
Next cont
End Sub
...e premere un tasto, ad esempio la "P" che è l'ultimo elemento per vederlo.