Dim rnt As String = [Assembly].GetEntryAssembly.GetName().Name + _
          ".test.txt"
        Dim s As String = New StreamReader( _
        [Assembly].GetEntryAssembly.GetManifestResourceStream(rnt)).ReadToEnd()
        RichTextBox1.Text = s
 
        Dim rn As String = [Assembly].GetEntryAssembly.GetName().Name + _
          ".calvin1.bmp"
        PictureBox1.Image = Image.FromStream( _
        [Assembly].GetEntryAssembly.GetManifestResourceStream(rn))

________
Alle Angaben ohne Gewähr. Keine Haftung für Vorschläge, Tipps oder sonstige Hilfe, falls es schiefgeht, nur Zeit verschwendet oder man sonst nicht zufrieden ist