Visual Basic

Dim fs As System.IO.FileStream = System.IO.File.OpenWrite(newFilename)
        Dim img As Bitmap = Image.FromFile(filename)

        ' Write Header
        fs.WriteByte(0)
        fs.WriteByte(0)
        fs.WriteByte(img.Width)
        fs.WriteByte(img.Height)

        ' Convert colour to 1bit and packet bits into byte
        Dim iByte As Byte = 0
        Dim iCurrentBit As Integer = 0
        For x As Integer = 0 To img.Width - 1
            For y As Integer = 0 To img.Height - 1

                Dim clr As Color = img.GetPixel(x, y)
                If (clr.R > 128) And (clr.G > 128) And (clr.B > 128) Then
                    If iCurrentBit >= 7 Then
                        iByte = iByte Or ((2 << iCurrentBit) - 1)
                    Else
                        iByte = iByte Or (2 << iCurrentBit)
                    End If
                End If

                If iCurrentBit >= 7 Then
                    fs.WriteByte(iByte)
                    iByte = 0
                    iCurrentBit = 0
                End If
                iCurrentBit += 1

            Next
        Next

        fs.Flush()
        fs.Close()

Public Shared Function ResizePixles(ByVal image As Bitmap, ByVal factor As Integer) As Bitmap
    On Error Resume Next
    Dim rbmp As New Bitmap(image.Width * factor, image.Height * factor)
    For x As Integer = 0 To image.Width - 1
        For y As Integer = 0 To image.Height - 1
            Dim c As Color = image.GetPixel(x, y)
            For x2 As Integer = x * factor To x * factor + factor - 1
                For y2 As Integer = y * factor To y * factor + factor - 1
                    rbmp.SetPixel(x2, y2, c)
                Next
            Next
        Next
    Next
    Return rbmp
End Function