ช่วยแนะนำหน่อยครับ เกี่ยวกับการแสดงรูปใน VB 2010 มีปัญหาตอนเซฟไฟล์ทับที่เดิม

RectangleShapeImage.BackgroundImage = Nothing
        With OpenFileDialog
            .Title = "เลือกรูปภาพ"
            .Multiselect = False
            .FilterIndex = 0
            .FileName = ""
            If .ShowDialog() = Windows.Forms.DialogResult.OK Then
                lblImagePath.Text = .FileName
                RectangleShapeImage.BackgroundImage = Image.FromFile(lblImagePath.Text)
                Dim NewSize As New Size(140, 140)
                resizeimage = New Bitmap(RectangleShapeImage.BackgroundImage, NewSize)
                RectangleShapeImage.BackgroundImage = resizeimage
                RectangleShapeImage.BackgroundImageLayout = ImageLayout.Stretch
            End If
        End With
        'ตรวจสอบว่ามีไฟล์นี้หรือไม่
        Dim fileExists As Boolean
        fileExists = My.Computer.FileSystem.FileExists(PICTURE_PATH & txtCustomerID.Text & ".jpg")
        If fileExists = True Then
            'ไฟล์ที่ต้องการลบ
            Try
                Dim filetodelete As String = PICTURE_PATH & txtCustomerID.Text & ".jpg"
                File.Delete(filetodelete) 'ตรงนี้เมื่อทำครั้งที่ 2 ไม่ได้ มันแจ้งว้ามีกำลังโปรแกรมใช้งานอยู่

                Dim file_name As String = txtCustomerID.Text
                Dim bm As Bitmap = CType(RectangleShapeImage.BackgroundImage, Bitmap)
                bm.Save(PICTURE_PATH & file_name & ".jpg", System.Drawing.Imaging.ImageFormat.Jpeg)
                resizeimage.Dispose()
                Try
                    RectangleShapeImage.BackgroundImage = Nothing
                    RectangleShapeImage.BackgroundImage = Image.FromFile(PICTURE_PATH & txtCustomerID.Text & ".jpg")
                Catch ex As Exception
                    RectangleShapeImage.BackgroundImage = Nothing
                    RectangleShapeImage.BackgroundImage = Image.FromFile(PICTURE_PATH & "default.jpg")
                End Try
            Catch ex As Exception
                MessageBox.Show("ไม่สามารถบันทึกไฟล์ได้ เนื่องจาก " & ex.Message, "การทำงาน", MessageBoxButtons.OK, MessageBoxIcon.Exclamation)
            End Try

        Else
            'save รูปภาพ
            Dim file_name As String = txtCustomerID.Text
            Dim bm As Bitmap = CType(RectangleShapeImage.BackgroundImage, Bitmap)
            bm.Save(PICTURE_PATH & file_name & ".jpg", System.Drawing.Imaging.ImageFormat.Jpeg)
            resizeimage.Dispose()
            Try
                RectangleShapeImage.BackgroundImage = Nothing
                RectangleShapeImage.BackgroundImage = Image.FromFile(PICTURE_PATH & txtCustomerID.Text & ".jpg")
            Catch ex As Exception
                RectangleShapeImage.BackgroundImage = Nothing
                RectangleShapeImage.BackgroundImage = Image.FromFile(PICTURE_PATH & "default.jpg")
            End Try
        End If