select block no using checkbox and no should be display in textbox

Question

 i want to select block no and display it in textbox in ascending but one issue is interupt me is checkboxlist. in visual basic 6.0 only have check1, check2 etc... not checkboxlist. in this case what to do. 

 

1)  if checkbox is selected the selected checkbox value should be display in Textbox.

 

2)  second one is when i select 1 to 7 from combobox or dropdown then checkbox from 1 to 7 should be select 

 

i have tried for dropdown as per below code its working in VS2015 but not in VB6.0.

 

kindly suggest me...

Private Sub ComboBox1_SelectedIndexChanged(sender As Object, e As EventArgs) Handles ComboBox1.SelectedIndexChanged
       If ComboBox1.Text = "1 To 7" 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
       End If
   End Sub