Would something such as this work for you?

Dim dctOne As New System.Collections.ArrayList()
Dim deDictEntryOne As System.Collections.Hashtable()

For Each deDictEntryOne In dctOne

Next

'or

Dim dctOne1 As New System.Collections.Specialized.HybridDictionary()
Dim deDictEntryOne1 As System.Collections.IDictionaryEnumerator

deDictEntryOne1 = dctOne1.GetEnumerator()

While deDictEntryOne1.MoveNext()
'deDictEntryOne1.Current gets you the current object.
End While