01.
Private
Sub
CheckBox1_CheckedChanged(
ByVal
sender
As
System.
Object
,
ByVal
e
As
System.EventArgs)
Handles
CheckBox1.CheckedChanged
02.
If
CheckBox1.Checked =
True
Then
03.
DataGridView1.Columns(1).Visible =
True
04.
ElseIf
CheckBox1.Checked =
False
Then
05.
DataGridView1.Columns(1).Visible =
False
06.
End
If
07.
End
Sub
08.
09.
Private
Sub
CheckBox2_CheckedChanged(
ByVal
sender
As
System.
Object
,
ByVal
e
As
System.EventArgs)
Handles
CheckBox2.CheckedChanged
10.
If
CheckBox2.Checked =
True
Then
11.
DataGridView1.Columns(2).Visible =
True
12.
ElseIf
CheckBox2.Checked =
False
Then
13.
DataGridView1.Columns(2).Visible =
False
14.
End
If
15.
End
Sub
16.
Private
Sub
CheckBox3_CheckedChanged(
ByVal
sender
As
System.
Object
,
ByVal
e
As
System.EventArgs)
Handles
CheckBox2.CheckedChanged
17.
If
CheckBox3.Checked =
True
Then
18.
DataGridView1.Columns(3).Visible =
True
19.
ElseIf
CheckBox3.Checked =
False
Then
20.
DataGridView1.Columns(3).Visible =
False
21.
End
If
22.
End
Sub