Imports System
Imports System.Collections
Module HashTableToString
Sub Main()
Dim ht As New Hashtable()
ht.Add("A", "C")
ht.Add("B", "Java")
ht.Add("C", "Python")
ht.Add("D", "Go")
ht.Add("E", "Rust")
ht.Add("F", "TypeScript")
Dim keysArray(ht.Keys.Count - 1) As String
ht.Keys.CopyTo(keysArray, 0)
Console.WriteLine("Keys as String Array:")
For Each key As String In keysArray
Console.WriteLine(key)
Next
End Sub
End Module
' run:
'
' Keys as String Array:
' A
' D
' F
' B
' E
' C
'