Imports System
Imports System.Collections
Class Sample
Public Shared Sub Main()
Dim environmentVariables As IDictionary = Environment.GetEnvironmentVariables()
Dim de As DictionaryEntry
For Each de In environmentVariables
Console.WriteLine(" {0} = {1}", de.Key, de.Value)
Next de
End Sub
End Class