Как пользоваться чекбоксом?

Select Case ComboBox1.Text
            Case "Московская"
                ListBox1.Items.Clear()
                ListBox1.Items.Add("Город1")
                ListBox1.Items.Add("Город2")
            Case "Ленинградская"
                ListBox1.Items.Add("Город3")
                ListBox1.Items.Add("Город4")
                ListBox1.Items.Add("Город5")
                ListBox1.Items.Add("Город6")
        End Select
    End Sub
 
    Private Sub Form1_Load(sender As Object, e As EventArgs) Handles MyBase.Load
        ComboBox1.Items.Add("Московская")
        ComboBox1.Items.Add("Ленинградская")
    End Sub

Private Sub Form1_Load(sender As Object, e As EventArgs) Handles MyBase.Load
        CheckBox1.Text = "Московская"
        CheckBox2.Text = "Ленинградская"
    End Sub
 
    Private Sub CheckBox1_CheckedChanged(sender As Object, e As EventArgs) Handles CheckBox1.CheckedChanged
        If CheckBox1.Checked = True Then
            CheckBox2.Checked = False
            ListBox1.Items.Clear()
            ListBox1.Items.Add("Город1")
            ListBox1.Items.Add("Город2")
        End If
    End Sub
 
    Private Sub CheckBox2_CheckedChanged(sender As Object, e As EventArgs) Handles CheckBox2.CheckedChanged
        If CheckBox2.Checked = True Then
            CheckBox1.Checked = False
            ListBox1.Items.Clear()
            ListBox1.Items.Add("Город3")
            ListBox1.Items.Add("Город4")
            ListBox1.Items.Add("Город5")
            ListBox1.Items.Add("Город6")
        End If
    End Sub