Visual Basic.NET - Obtener imagenes de BD MySql y cargar en un objeto tipo Imagelist

Dim sqlquery As String = "Select descripcion,fotofam FROM Familias"

Dim fotoarecuperar As MySqlDataReader

fotoarecuperar = cmd.ExecuteReader(CommandBehavior.CloseConnection)

'Iniciamos recuperacion de los campos descripcion (string) y fotofam (blob)

            Dim fotoarecuperar As MySqlDataReader

            fotoarecuperar = cmd.ExecuteReader(CommandBehavior.SequentialAccess) 'ejecutamos consulta

            'Con esto recuperamos el primer campo, que es la descripcion

            descripcion = fotoarecuperar.GetString(0)

            'Y ahora vamos a recuperar la foto

            Dim memorybits As New System.IO.MemoryStream()

            memorybits = fotoarecuperar.GetBytes(1, startIndex, outbyte, 0, bufferSize)

            'Cremos una variable que almacenara la imagen obtenida

            Dim bitmap As New Bitmap(memorybits)

            'Agregamos la imagen obtenida en la variable anterior al objeto ImageList

            ............

'Inicio instrucciones conexion base de datos SQL de manera remota

Dim DBCon As New MySqlConnection

'Aqui ponemos los datos de la base de datos de prueba creada en DB4FREE.NET (que es gratuita y permite

'conexiones remotas!)

DBCon.ConnectionString = "Server = DIRECCIONSERVIDORWEB; Database = NOMBREBASE; Uid= USUARIO; Pwd = CONTRASEÑA; Port=NUMEROPUERTO"

'Introducimos los parametros de la busqueda con el Select, que recuperará las columnas FOTOFAM (campo BLOB) 'y DESCRIPCION (string) de una tabla llamada Familias

Dim sqlquery As String = "Select fotofam,descripcion FROM Familias"

Dim cmd As New MySqlCommand(sqlquery, DBCon)

'Abrimos la conexión con la base de datos

DBCon.Open()

If DBCon.State = ConnectionState.Open Then 'Si hemos conectado con la base de datos hacemos lo siguiente

            'Iniciamos recuperacion de los campos descripcion (string) y fotofam (blob)

            Dim dp As New MySqlDataAdapter(cmd)

	    'Creamos un objeto dataTable

            Dim dt As New DataTable

	    'Llenamos el objeto datatable con Fill

            dp.Fill(dt)

            'Con el Rows(x) indicamos el numero del resultado que vamos a mostrar. Es decir, si hemos obtenido 25

            ' resultados, en la x indicamos el numero del resultado a mostrar

            Dim myRow As DataRow = dt.Rows(0)

            'Como lo que vamos a obtener es una foto, es decir: datos, debemos almacenarlos en un objeto

            'tipo Byte(). En la siguiente instruccion extraemos el dato numero X del campo FOTOTAM sobre 

            'el resultado obtenido con el fill. Y lo almacenamos en Mydata

            Dim MyData As Byte() = DirectCast(myRow("fotofam"), Byte())

            'Ahora viene lo bueno y dificil de encontrar! porque mucha gente coge los bytes para ordenarlos y es un rollo!    

            'Con Memorystream podemos convertir directamente los datos byte 

            'obtenidos en un objeto de fotografia

            Dim Stream = New MemoryStream(MyData)

            'Aqui asignamos a una fotografia de un formulario, llamada CAJADEFOTOS la fotografia obtenida

            cajadefotos.Image = Image.FromStream(Stream)

End if

           'Seleccionamos el row(0) para obtener el primer resultado

            myRow = dt.Rows(0)

            'Aqui como el resultado es de tipo string, no de byte() como la imagen, lo definimos y le decimos que el campo

            'a obtener es DESCRIPCION

            Dim textito = DirectCast(myRow("descripcion"), String)

            'asignamos el resultado obtenido a una etiqueta llamada LABELNOMBRE

            Labelnombre.Text = textito

Imports MySql.Data.MySqlClient

Imports System.IO