Private Sub CheckBox1_CheckedChanged(ByVal sender As System.Object, ByVal e _
      As System.EventArgs) Handles CheckBox1.CheckedChanged
        For Each c As Control In Me.Controls
            c.Enabled = CheckBox1.Checked
        Next
        CheckBox1.Enabled = True
    End Sub