[Anas Mahmoud]

بالاضافة لرد الاخ عاصم

الافضل الاستماع للحدث KeyPress لانه يتيح الحرف مباشرة عن طريق e.KeyChar

كود :

   Private Sub Form1_KeyPress(sender As Object, e As KeyPressEventArgs) Handles Me.KeyPress
       If CheckBox1.Checked = True And Char.IsControl(e.KeyChar) = False Then
           TextBox1.Text += e.KeyChar
           e.Handled = True
       End If
   End Sub

كود :

   Private Sub Form1_Load(sender As Object, e As EventArgs) Handles MyBase.Load
       KeyPreview = True
   End Sub