Guardar imagen con SaveFileDialog

[sagma]

tengo este codigo, con que grabo la imagen en un directorio especifico. Pero necesito su ayuda ya que se desea que sea transparente para el usuario.

En este caso, cuando grabo los datos, me pide el nombre de la imagen, digito el nombre de la imagen y graba todo ok, la imagen en el directorio que se quiere y los datos en la base de datos.

Lo que quiero cambiar, es no poner el dato o el nombre de la imagen, y que automaticamente este tome el dato que estara en el txt_codigo.text, y no asi digitando el codigo que le corresponde.

Código:

        If Not Me.PictureBox1.Image Is Nothing Then
  
             Dim saveFileDialog1 As New SaveFileDialog
             saveFileDialog1.Filter = "JPeg Image|*.jpg|Bitmap Image|*.bmp|Gif Image|*.gif"
             saveFileDialog1.Title = "Guarda como imagen JPG o BMP"
             saveFileDialog1.InitialDirectory = "C:\Transito\fotos\"
  
             saveFileDialog1.ShowDialog()
  
             If saveFileDialog1.FileName <> "" Then
  
                 Dim fs As System.IO.Stream = CType(saveFileDialog1.OpenFile(), System.IO.FileStream)
                 Me.SaveFileDialog1.FileName = Me.txt_codigo.Text
  
                 Select Case saveFileDialog1.FilterIndex
                     Case 1
                         Me.PictureBox1.Image.Save(fs, _
                         System.Drawing.Imaging.ImageFormat.Jpeg)
  
                     Case 2
                         Me.PictureBox1.Image.Save(fs, _
                         System.Drawing.Imaging.ImageFormat.Bmp)
  
                     Case 3
                         Me.PictureBox1.Image.Save(fs, _
                         System.Drawing.Imaging.ImageFormat.Gif)
                 End Select
  
                 fs.Close()
             End If
         End If

gracias y felices fiestas.

[Trulala de cordoba]

En vez de usar Me.PictureBox1.Image.Save(fs, _
System.Drawing.Imaging.ImageFormat.Jpeg)

Te convendria usar System.IO.File.Copy()

Te quedaria algo como:

Dim fs as SaveFileDialog = New SaveFileDialog()
fs.ShowDialog()
Dim destFilename as String = fs.Filename
System.IO.File.Copy(sourceFilename, "C:\tempora\" + ElNombreDelArchivo)

[sagma]

muchas gracias.