[VB.NET]: Unire files binari

[flash.tato]

Volevo dire che ero riuscito a farmi un codice sorgente per unire dei file immagini in un unico file contenitore.
Ma ho un problema.

Per ogni file che crea il programma ci mette prima questo testo

......................QSystem.Drawing, Version=2.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a......System.Drawing.Bitmap.....Data.................'...

e dopo aggiunge il testo dei files da unire

Io voglio che tale testo non venga aggiunto, il codice del mio programma è

Imports System.IO

Public Class Form1

Private Sub btn_add_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btn_add.Click

If OpenFileDialog1.ShowDialog = Windows.Forms.DialogResult.OK Then

Dim S() As String = OpenFileDialog1.FileNames 'un array che contiene i nomi dei file scelti 

Dim File As String

Dim sr As New IO.FileStream(OpenFileDialog1.FileName, IO.FileMode.Open)

Dim fmt As New System.Runtime.Serialization.Formatters.Binary.BinaryFormatter

For Each File In S

ListBox1.Items.Add(File)

Next

sr.Close()

End If

End Sub

Private Sub btn_create_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btn_create.Click


If SaveFileDialog1.ShowDialog = Windows.Forms.DialogResult.OK Then

Dim sw As New IO.FileStream(SaveFileDialog1.FileName, IO.FileMode.Create)
    Dim fmt As New System.Runtime.Serialization.Formatters.Binary.BinaryFormatter
    Dim bmp As Bitmap
    For Each item As String In ListBox1.Items
      bmp = CType(Bitmap.FromFile(item), Bitmap)
      fmt.Serialize(sw, bmp)
    Next
    sw.Close()
End If

End Sub

End Class

Spero possiate aiutarmi nonostante i riproverevoli precedenti con "alka"

flash.tato