I have a simple program to convert an image in a picture box into as grayscale image ,from what i have been told it is possible to then change that image in to a black and white image with certain levels of gray being converted to black and lower levels of gray being converted into white how would i do thishere is my code to change into gray scale what would i need to add to this codePrivate Sub cmdGray_Click()Pic.ScaleMode = vbPixelsX = Pic.ScaleWidthy = Pic.ScaleHeightFor i = 0 To y - 1For j = 0 To X - 1pixel = Pic.Point(j, i)red = pixel Mod 256green = ((pixel And &HFF00) / 256& Mod 256&blue = (pixel And &HFF0000) / 65536gs = ((red * 30) + (green * 59) + (blue * 11)) / 100Pic.PSet (j, i), RGB(gs, gs, gs)NextNextPic.ScaleMode = vbTwipsEnd Sub
thanks