Sub BitmapToMonochromBitmap(ByVal OldBitmap As Bitmap, ByRef NewBitmap As _
      Bitmap)
        Dim tmp As New Bitmap(128, 64, Imaging.PixelFormat.Format1bppIndexed)
 
        For y As Integer = 0 To OldBitmap.Height - 1
            For x As Integer = 0 To OldBitmap.Width - 1
                tmp.SetPixel(x, y, OldBitmap.GetPixel(x, y))
            Next
        Next
 
        NewBitmap = tmp
    End Sub