الاكواد
======================================
الخط:
Try
Dim dlg As FontDialog = New FontDialog
dlg.Font =TextBox1.Font
If dlg.ShowDialog = System.Windows.Forms.DialogResult.OK Then
TextBox1.Font = dlg.Font
End If
Catch ex As Exception : End Try
========================================­­==
اللون :
Try
Dim dlg As ColorDialog = New ColorDialog
dlg.Color =TextBox1.ForeColor
If dlg.ShowDialog = System.Windows.Forms.DialogResult.OK Then
TextBox1.ForeColor = dlg.Color
End If
Catch ex As Exception : End Try
========================================­­==
نسخ:
TextBox1.Copy()
========================================­­==
قص:
TextBox1.Cut()
========================================­­==
لصق:
TextBox1.Paste()
========================================­­==
الاوان لكتابه:
If TextBox1.ForeColor = Color.Green Then
 TextBox1.ForeColor = Color.Red
Else
TextBox1.ForeColor = Color.Green
End If
=====================================
تحديد الكل :
TextBox1.SelectAll()
====================================
كود الفتاة الناطقه
dim sapt
sapt = createobject("sapi.spvoice")
sapt.speak("krar.king")
====================================
كود زر about
Dim s As New Form2
s.Show()
====================================
كود زر المراسله على اي موقع
Process.Start("اكتب الرابط هنا") ' vb.net
====================================