Dim fs As IO.Stream
        fs = System.Reflection.Assembly.GetExecutingAssembly( _
          ).GetManifestResourceStream("MyProject.xy.png")
        Dim b(fs.Length - 1) As Byte
        fs.Read(b, 0, fs.Length)
        fs.Close()

________
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