For Each key As Object In myHashTable.Keys
ListBox1.Items.Add(key.ToString)
Next
или
Dim enumerator As IDictionaryEnumerator = myHashTable.GetEnumerator()
While enumerator.MoveNext
ListBox1.Items.Add(enumerator.Key)
End While
Но вместо этого вы должны использовать универсальные словари, которые безопасны для типов и, следовательно, быстрее и с меньшими ошибками.
Dim myDictionary As New Dictionary(Of Int32, String)
For i As Int32 = 1 To 1000
myDictionary.Add(i, i & ". Entry")
Next
For Each key As String In myDictionary.Keys
ListBox1.Add(key)
Next