SaveFileDialog1.FileName = PictureBox1.Text
        SaveFileDialog1.DefaultExt = ".jpg"
        If SaveFileDialog1.ShowDialog = vbOK Then
            If Not IsNothing(Me.PictureBox1.Image) Then
                Me.PictureBox1.Image.Save(SaveFileDialog1.FileName, _
                  System.Drawing.Imaging.ImageFormat.Jpeg)
            End If
        End If