[Taha Okla]

إما تكتب الكود بشكل مباشر مثل ذا :

كود :

Private Sub CheckBox1_CheckedChanged(sender As Object, e As EventArgs) Handles CheckBox1.CheckedChanged
   TextBox1.Enabled = CheckBox1.Checked
   TextBox2.Enabled = CheckBox1.Checked
End Sub

أو تكتبه ضمن جملة شرطية :

كود :

Private Sub CheckBox1_CheckedChanged(sender As Object, e As EventArgs) Handles CheckBox1.CheckedChanged
   If CheckBox1.Checked = True Then
       TextBox1.Enabled = True
       TextBox2.Enabled = True
   Else
       TextBox1.Enabled = False
       TextBox2.Enabled = False
   End If
End Sub