Dim f As Integer
While reader.Read()
  Using ms as New MemoryStream()
    ms.Write( reader("thumb") )
    ms.Position=0
    Dim t As New CheckBox
    t.Image = System.Drawing.Image.FromStream(ms)
    Frame.Controls.Add(t)
  End Using
End While