SCHOOL PROJECT ON VB - I have a problem

Public Class lbloperacija4

    Private Sub cb10_CheckedChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles cb10.CheckedChanged


        If cb10.Checked = True Then
            cb20.Checked = False
            cb30.Checked = False
            cb40.Checked = False
            cb50.Checked = False
            cb60.Checked = False
            cb70.Checked = False
            cb80.Checked = False
            cb90.Checked = False
            cb100.Checked = False
        End If


        hsb.Value = 1
        hsb.Minimum = 1
        hsb.Maximum = 10

This is the sample for check box 10
and i dont need to enter max value because its default value is 100 ( 91 in my case :-))