Dim lista As New Hashtable Dim lista2 As Array lista2 = Array.CreateInstance(GetType(String), lista.Count) lista.Keys.CopyTo(lista2, 0)