Imports System
Imports System.Collections
Imports System.Environment
Public Class MainClass
Shared Sub Main()
Dim eVariables As Hashtable
eVariables = CType(GetEnvironmentVariables(), Hashtable)
Dim thing As Object
For Each thing In eVariables.Keys
Console.WriteLine("The environment variable named " & thing.ToString() _
& " has value " & eVariables(thing).ToString())
Next
End Sub
End Class