Sub HighContrastImageCB(ByVal sender As BrickletThermalImaging, ByVal image As Byte())
Dim myBitmap As New Bitmap("c:\temp\ir8060.jpg")
Dim img As Byte() = image
Dim i As Single
Dim x As Single
Dim y As Single
Dim img_color(4800) As Color
Dim img_highest As Byte
For i = 0 To 4799
img_color(i) = Color.FromArgb(0, img(i), 0, img(i)) 'RGB(255, 0, 0)
Next i
For y = 0 To 59
For x = 0 To 79
myBitmap.SetPixel(x, y, img_color(x * y))
Next x
Next y
PicBox_IR.Image = myBitmap
End Sub