Dim f As Integer
While reader.Read()
  f=freefile
  FileOpen(f, sFile, OpenMode.Output, OpenAccess.Write, OpenShare.Shared) ' 
  ' geht ab dem 2. Durchlauf nicht mehr
  Print(f, reader("thumb"))
  FileClose(f)
 
  Dim t As New CheckBox
  t.Image = System.Drawing.Image.FromFile(sFile)
  Frame.Controls.Add(t)
 
  kill(sFile)  ' geht nicht
End While

------------
mosch