Imports System
Imports System.Resources
Imports System.Collections
Imports System.IO

Public Class ReadResources

    Public Shared Sub Main(args() As String)
        ' Create a file stream to encapsulate items.resources.
        Dim fs As New FileStream("items.resources", FileMode.Open)

        ' Open a resource reader to read from the stream. 
        Dim reader = New ResourceReader(fs)

        ' Get an enumerator for the reader.
        Dim en As IDictionaryEnumerator = reader.GetEnumerator()

        ' Enumerate through the file, printing out the key/value pairs.
        While en.MoveNext()
            Console.WriteLine()
            Console.WriteLine("Name: {0}", en.Key)
            Console.WriteLine("Value: {0}", en.Value)
        End While
        fs.Close()
        reader.Close()
    End Sub

End Class

using System;
using System.Resources;
using System.Collections;
using System.IO;

public class ReadResources 
{
    public static void Main(string[] args) 
    {
        // Create a file stream to encapsulate items.resources.
        FileStream fs = new FileStream("items.resources", FileMode.Open);

        // Open a resource reader to read from the stream. 
        IResourceReader reader = new ResourceReader(fs);
        
        // Get an enumerator for the reader.
        IDictionaryEnumerator en = reader.GetEnumerator();

        // Enumerate through the file, printing out the key/value pairs.
        while (en.MoveNext()) 
        {
            Console.WriteLine();
            Console.WriteLine("Name: {0}", en.Key);
            Console.WriteLine("Value: {0}", en.Value);
        }
        fs.Close();        
        reader.Close();
    }
}

using namespace System;
using namespace System::Resources;
using namespace System::Collections;
using namespace System::IO;
int main()
{
   array<String^>^args = Environment::GetCommandLineArgs();

   // Create a file stream to encapsulate items.resources.
   FileStream^ fs = gcnew FileStream( "items.resources",FileMode::Open );

   // Open a resource reader to read from the stream.
   IResourceReader^ reader = gcnew ResourceReader( fs );

   // Get an enumerator for the reader.
   IDictionaryEnumerator^ en = reader->GetEnumerator();

   // Enumerate through the file, printing [Out] the* key/value pairs.
   while ( en->MoveNext() )
   {
      Console::WriteLine();
      Console::WriteLine( "Name: {0}", en->Key );
      Console::WriteLine( "Value: {0}", en->Value );
   }

   fs->Close();
   reader->Close();
}