Dim bm As New Bitmap(file_name_jpg)
        PictureBox1.Image = bm
        PictureBox1.SizeMode = PictureBoxSizeMode.Zoom

If My.Computer.FileSystem.FileExists(file_name_jpg) Then
            If MsgBox("delete jpg?", MsgBoxStyle.Exclamation + _
              MsgBoxStyle.YesNo) = MsgBoxResult.Yes Then
                Do
                    PictureBox1.Image = Nothing
                Loop Until IsNothing(PictureBox1.Image)
 
                File.Delete(file_name_jpg)
            End If
        End If

mit freundlichen Grüßen
Sven