Я видел приведенный выше код, и казалось, что он конвертирует каждый пиксель с помощью ручной логики.
Будет ли это работать для вас?
Импортирует System.Drawing.Imaging
'получить файл цвета tif
Dim bmpColorTIF As New Bitmap ("C: \ color.tif")
'выберите область TIF (захватит все кадры)
Dim rectColorTIF как новый прямоугольник (0, 0, bmpColorTIF.Width, bmpColorTIF.Height)
'клонировать прямоугольник как 1-битный цвет tif
Dim bmpBlackWhiteTIF As Bitmap = bmpColorTIF.Clone (rectColorTIF, PixelFormat.Format1bppIndexed)
'делайте что хотите с новым растровым изображением (сохраняйте и т. Д.)
...
Примечание: на выбор предлагается тонна форматов пикселей.