كمك كنيد گيرم شديد

برنامه اينه
ابتدا ابعادو برحسب پيكسل ميگيريم مثلا 100*100 pixel بعد يه textbox با همين ابعاد ايجاد شه بعد با هر فونت و اندازه اي توش بنويسي بعد هر متني كه تو اين 100*100 pixel بود رو پيكسل به پيكسل بگيره و بگه اگه اون پيكسل سياه(يعني متن) عدد 1 و اگر سفيد عدد 0 برگردونه

عوض كزدن فونت
FontDialog1.ShowDialog()
If FontDialog1.ShowDialog = Windows.Forms.DialogResult.OK Then
TextBox1.Font = FontDialog1.Font
EndIf

تبديل عكس يه پيكسل

Dim MyColor As Color
Dim bm AsNew Bitmap(pictureBox1.image)
For x AsInteger = 0 To TextBox1.Size.Height
For y AsInteger = 0 To TextBox1.Size.Width
MyColor = bm.GetPixel(50, 50)
MessageBox.Show("color=" & MyColor.ToString, "Color", MessageBoxButtons.OK, MessageBoxIcon.Information)
Next
Next

حالا متن چجوريه