Combobox Semester

Ques :Designing form like above and when user select the sem combobox .that semester subject Name fill the combobox in VB.net

Code

Public Class Form1

    Private Sub rbsem1_CheckedChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles rbsem1.CheckedChanged
        cbsub.Items.Clear()
        Dim subject() As String = {"Operation Research", "Computer Programming Using C", "Internet : Concepts & Tools", "Computer Organization", "Practical"}
        cbsub.Items.AddRange(subject)
    End Sub

    Private Sub rbsem2_CheckedChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles rbsem2.CheckedChanged
        cbsub.Items.Clear()
        Dim subject() As String = {"System Analysis & Design", "Object Oriented Programming Using C++", "Data Structures & Algorithm", "Computer Networks", "Practical"}
        cbsub.Items.AddRange(subject)
    End Sub

    Private Sub rbsem3_CheckedChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles rbsem3.CheckedChanged
        cbsub.Items.Clear()
        Dim subject() As String = {"Operating System Principals", "Core Java", "Computer Graphics", "Database: Concepts & Tools", "Practical"}
        cbsub.Items.AddRange(subject)
    End Sub

    Private Sub rbsem4_CheckedChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles rbsem4.CheckedChanged
        cbsub.Items.Clear()
        Dim subject() As String = {"Web Programming - I", "Windows Programming", "Advanced Java", "Software Engineering", "Practical"}
        cbsub.Items.AddRange(subject)
    End Sub

    Private Sub rbsem5_CheckedChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles rbsem5.CheckedChanged
        cbsub.Items.Clear()
        Dim subject() As String = {"Artificial Intelligence", "Advanced UNIX/LINUX", "Web Programming - II", "Project – I", "Practical"}
        cbsub.Items.AddRange(subject)
    End Sub

    Private Sub rbsem6_CheckedChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles rbsem6.CheckedChanged
        cbsub.Items.Clear()
        cbsub.Items.Add("Project(-II)")
    End Sub
End Class

Download