Private Sub tnBildLaden_Click(ByVal sender As System.Object, ByVal e As _
  System.EventArgs) Handles btnBildLaden.Click
        PictureBox1.Image = New Bitmap("D:\" & lblBildname.Text & ".jpg")
        lblBildname.Text += 1
    End Sub
 
    Private Sub btnBildFreigeben_Click(ByVal sender As System.Object, ByVal e _
      As System.EventArgs) Handles btnBildFreigeben.Click
        If Not IsNothing(PictureBox1.Image) Then PictureBox1.Image.Dispose()
    End Sub