' Load a text file.
 
Dim text_stream As Stream = _
       executing_assembly.GetManifestResourceStream(my_namespace _
 + ".Net_Test.txt")
        If Not (text_stream Is Nothing) Then
            Using Sr As New StreamReader(text_stream, _
              System.Text.Encoding.Default)
                Do Until Sr.EndOfStream
                    Dim Zeile As String = Sr.ReadLine
                    ListBox1.Items.Add(Zeile.Trim)
                Loop
            End Using           
        End If