Dim sFIle As String
        Dim sPath As String
 
        sPath = Application.StartupPath
        sFIle = sPath & "\data\pictures\pic.jpg"
 
        'prüfen ob datei existiert
        If System.IO.File.Exists(sFIle) = True Then
              Picturebox.Image = System.Drawing.Image.FromFile(sFIle) 'load 
              ' picture 
            'Picturebox.Image = New Bitmap(sFIle) 
        Else
               Picturebox.Image.Dispose()
               Picturebox.Image = Nothing
        End If
        If System.IO.File.Exists(sFIle) = True Then
            System.IO.File.Delete(sFIle)
        End If