If CheckBox7.Checked = True Then CheckBox1.Checked = True CheckBox2.Checked = True CheckBox3.Checked = True CheckBox4.Checked = True CheckBox5.Checked = True CheckBox6.Checked = True Else CheckBox1.Checked = False CheckBox2.Checked = False CheckBox3.Checked = False CheckBox4.Checked = False CheckBox5.Checked = False CheckBox6.Checked = False
If CheckBox7.Checked = True Then Check(True) elseif checkbox7.checked = false then check(false) end if sub check(tof as string) checkbox1.checked = tof checkbox2.checked = tof checkBox3.checked = tof checkBox4.checked = tof checkBox5.checked = tof checkBox6.checked = tof end sub
If CheckBox7.Checked = True Then
Check(True)
elseif checkbox7.checked = false then
check(false)
end if
sub check(tof as string)
dim num as integer = 1
while num <> 7
checkbox + num.checked = tof
num += 1
End While
End Sub
If CheckBox7.Checked = True Then ' Check All Box CheckBox1.Checked = True CheckBox2.Checked = True CheckBox3.Checked = True CheckBox4.Checked = True CheckBox5.Checked = True CheckBox6.Checked = True CheckBox7.Enabled = False CheckBox8.Enabled = True Else CheckBox8.Checked = True Then ' Uncheck all box CheckBox1.Checked = False CheckBox2.Checked = False CheckBox3.Checked = False CheckBox4.Checked = False CheckBox5.Checked = False CheckBox6.Checked = False CheckBox7.Enabled = True CheckBox8.Enabled = False