Guardar imagen dentro de otro archivo

[Bazookao]

mas o menos en eso andaba pensando pero como hago para leer todo el contenido del archivo de imagen antes de guardarlo

tenia algo mas o menos asi
solo que en ciclo ya no se que poner
si poner hasta que termine de leer el archivo (EOF) o que otra cosa

Código VB.NET:

Imports System
Imports System.IO
Public Class Form1
 
    Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
        cambiarMarco()
    End Sub
    Private Sub cambiarMarco()
        Dim marcoDial As New OpenFileDialog
        marcoDial.Filter = "Imagenes|*.jpg; *.gif; *.jpeg; *.bmp; *.png "
        If marcoDial.ShowDialog = Windows.Forms.DialogResult.OK Then
            PictureBox1.ImageLocation = marcoDial.FileName
        End If
    End Sub
 
    Private Sub guardar_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles guardar.Click
        Dim fs = New FileStream(PictureBox1.ImageLocation, FileMode.Open, FileAccess.Read)
        Dim r As New BinaryReader(fs)
        Do While 
'
        Loop
    End Sub
End Class
 

o hay alguna forma de simplemente copiar el contenido del archivo en memoria?????????