GUI VB.Net

Imports System
Imports System.Collections
Imports System.Resources
Module Module1
    Sub Main()
        Dim Rw As New ResourceWriter("my.resources")
        Dim Rr As ResourceReader
        Dim RrEn As IDictionaryEnumerator
        Rw.AddResource("key 1", "First value")
        Rw.AddResource("key 2", "Second value")
        Rw.AddResource("key 3", "Third value")
        Rw.Generate()
        Rw.Close()
        Rr = New ResourceReader("my.resources")
        RrEn = Rr.GetEnumerator
        Do While (RrEn.MoveNext)
            Console.WriteLine("Name: {0} - Value: {1}", RrEn.Key.ToString().PadRight(10, " "),RrEn.Value)
        Loop
        Rr.Close()
    End Sub
End Module