Cursor1 = SQL.ExecQuery("SELECT Picture1 FROM MyTable WHERE rowid = 99")
Cursor1.Position = 0
Dim Buffer() As Byte
Buffer = Cursor1.GetBlob("Picture1")
Dim InputStream1 As InputStream
InputStream1.InitializeFromBytesArray(Buffer, 0, Buffer.Length)
Dim Bitmap1 As Bitmap
Bitmap1.Initialize2(InputStream1)
InputStream1.Close
imgPicture.Bitmap= Bitmap1