Using check box and list box selected value in window form

Window Form

Private Sub CheckBox1_CheckedChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles CheckBox1.CheckedChanged
        lblLanguage.Text = "Selected Language is " + CheckBox1.Text
    End Sub

    Private Sub CheckBox2_CheckedChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles CheckBox2.CheckedChanged
        lblLanguage.Text = "Selected Language is " + CheckBox2.Text
    End Sub

    Private Sub CheckBox3_CheckedChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles CheckBox3.CheckedChanged
        lblLanguage.Text = "Selected Language is " + CheckBox3.Text
    End Sub

    Private Sub Form5_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
        CheckedListBox1.Items.Add("ASP.Net")
        CheckedListBox1.Items.Add("VB.Net")
        CheckedListBox1.Items.Add("Java")
        CheckedListBox1.Items.Add("C,C++")
        CheckedListBox1.Items.Add("Database")
        CheckedListBox1.Items.Add("Oracle")
    End Sub

    Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click

        ListBox1.Items.Clear()
        If CheckedListBox1.CheckedItems.Count > 0 Then
            For i As Integer = 0 To CheckedListBox1.CheckedItems.Count - 1
                ListBox1.Items.Add(CheckedListBox1.CheckedItems(i))
            Next
        End If

    End Sub

    Private Sub CheckBox4_CheckedChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles CheckBox4.CheckedChanged
        lblLanguage.Text = "Selected Language is " + CheckBox4.Text
    End Sub

End Class

https://www.youtube.com/channel/UCKLRUr6U5OFeu7FLOpQ-FSw/videos