Dim Threshold As Int=Colors.RGB(200,200,200) 'Here you define the tolerance of B&W
Dim b As Bitmap
b.Initialize(YOUR COLORED IMAGE)
Dim Panel1 as Panel
Dim Canvas1 as Canvas
Panel1.Initialize("Panel1")
Activity.AddView(Panel1,0,0,b.Width,b.Height) 'The Panel MUST be the same size as your bitmap
Canvas1.Initialize(Panel1)
For i = 0 To b.Width-1
For j = 0 To b.Height-1
If b.GetPixel(i,j) > Threshold Then
Canvas1.DrawPoint(i,j, Colors.White)
Else
Canvas1.DrawPoint(i,j, Colors.Black)
End If
Next
Next
'In Canvas1.Bitmap your B&W Image is stored now :)