Sub PicList_Click
ShowScreens
Panel2.Visible=True
Try
Dim Cursor1 As Cursor = CGlobals.SQL1.ExecQuery2("SELECT Image FROM Topo WHERE No = ?", Array As String(RowId1))
Cursor1.Position = 0
Dim Buffer() As Byte = Cursor1.GetBlob("Image")
Dim InputStream1 As InputStream
InputStream1.InitializeFromBytesArray(Buffer, 0, Buffer.Length)
Dim Bitmap1 As Bitmap
Bitmap1.Initialize2(InputStream1)
InputStream1.Close
Panel3.SetBackgroundImage(Bitmap1)
Catch
Label1.Visible=True
End Try
End Sub