Code: Select all
Using oGdPictureImaging As New GdPicture11.GdPictureImaging
Dim Image As Integer = oGdPictureImaging.CreateGdPictureImageFromFile(WMFFilename)
'oGdPictureImaging.FxBlackNWhiteT(Image, 128)
oGdPictureImaging.FxBlackNWhite(Image, GdPicture11.BitonalReduction.Stucki)
oGdPictureImaging.ConvertTo1BppAT(Image)
oGdPictureImaging.SaveAsBMP(Image, BMPFilename)
oGdPictureImaging.ReleaseGdPictureImage(Image)
End Using