Sub Button1_Click
Private b As Bitmap
b=LoadBitmap(File.DirAssets, "Untikktled.jpg")
Dim i As Long
Dim j As Long
Dim s As String
s=""
For i=0 To b.Height
For j=0 To b.Width
[COLOR=rgb(226, 80, 65)]If b.GetPixel(j,i)=Colors.White Then[/COLOR]
s=s & "0"
Else
s=s & "1"
End If
Next
Next
End Sub