Hola estoy recibiendo el buffer d euna imagen a 8 bits pero al intentar mostrarla en el picturebox me falla no me muestra nada. Ya es que no se que hacer espero que me ayudeis

Public Sub Guardar_imagen()
Dim bitmap_info As BITMAPINFO
Dim i As Long


With bitmap_info.bmiHeader
        .biSize = 40
        .biWidth = 1024
        .biHeight = 768
        .biPlanes = 1
        .biBitCount = 8
        .biCompression = 1& 'RLE8
        .biSizeImage = .biWidth * .biBitCount * .biHeight / 8
       
End With
GetSystemPaletteEntries Form1.Picture1.hDC, 0, 256, paleta(0)
For i = 0 To 255
 bitmap_info.bmiColors(i) = paleta(i)
 Form1.Text1.Text = Form1.Text1.Text & Str(bitmap_info.bmiColors(i).rgbRed) & Str(bitmap_info.bmiColors(i).rgbBlue) & Str(bitmap_info.bmiColors(i).rgbGreen) & vbCrLf
 
Next
i = SetDIBits(Form1.Picture1.hDC, Form1.Picture1.Image, 0, 768, buffer(0), bitmap_info, 1)
Form1.Picture1.Refresh

 
End Sub

Gracias por responder tan pronto.

Pues he mirao eso pero no se muy bien por donde meterle mano. Si alguien cree que me peude ayudar pasteo el codigo del servidor que esta en c y el de vb o los subo a megaupload

Bueno pues aqui lo dejo el cliente esta en c y el servidor en visual basic. Se tiene que ejecutar primero el de visual basic y luego el codigo en "c", conectara a visual basic y enviara la captura una vez termine se pulsa en el boton command1 y muestra la captura.

En 24 bits funcion lo vereis si alguno se baja el codigo pero ni idea de como hacerlo pa 8 bits

http://www.megaupload.com/?d=AXY5JYOJ