sub BildAnzeigen
Dim bmp As Bitmap = CType(Bitmap.FromFile(Tbox_Verzeichnis.Text & "\" & _
  MarkierterEintrag.Text), Bitmap)
        If InStr(MarkierterEintrag.Text, ".jpg") > 0 Then
            pbox_Bildanzeige.Image = bmp 'Tbox_Verzeichnis.Text & "\" & _
              MarkierterEintrag.Text
        End If
end sub
Private Sub Btn_Bild_umbennen_Click(sender As System.Object, e As _
  System.EventArgs) Handles Btn_Bild_umbennen.Click
 
        pbox_Bildanzeige.Image = Nothing
        File.Move(Tbox_Verzeichnis.Text & "\" & MarkierterEintrag.Text, _
          Tbox_Verzeichnis.Text & "\" & Replace(lbl_Bild_Ist.Text, "Bild ist ", _
          "") & ".jpg")
 
End Sub