Is it possible to create a Radiobuttonlist in VB

Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load

        RadioButton1.TabStop = False
        RadioButton2.TabStop = False
        RadioButton3.TabStop = False
        RadioButton4.TabStop = False

        Hour = 1
        minute = 0
        seconds = 0
        time.Text = Hour.ToString() & ":" & minute.ToString & ":" & seconds.ToString

        Dim a(4), t As Integer

        cnn.Open()
        cmd.Connection = cnn

        'This is a code for randomizing the questions
        Dim arbit As New Random
        Randomize()


        Dim I As Integer = 0
        While I <= 3
            t = arbit.Next(1, 25)
            If Array.IndexOf(a, t) = -1 Then
                a(I) = t
                I += 1
            End If
        End While

        For I = 0 To 4
            cmd.CommandText = "SELECT * FROM tblExamsQuestion where serial =" & a(I)
            adp = New SqlDataAdapter(cmd.CommandText, cnn)
            adp.Fill(ds, "tblExamsQuestionda")
        Next


        'this code is for creating new a table "preferably ANSWERED TABLE"
        dt = New DataTable("Answered")
        dt.Columns.Add("Serial", GetType(Integer))
        dt.Columns.Add("question", GetType(String))
        dt.Columns.Add("choice1", GetType(String))
        dt.Columns.Add("choice2", GetType(String))
        dt.Columns.Add("choice3", GetType(String))
        dt.Columns.Add("choice4", GetType(String))
        dt.Columns.Add("correct", GetType(String))
        ' dt.Columns.Add("explain", GetType(String))
        dt.Columns.Add("selected", GetType(String))


        'this code is for adding to the table TEST
        Dim r As DataRow

        For Each r In ds.Tables("tblExamsQuestionda").Rows
            dr = dt.NewRow
            dr("Serial") = dt.Rows.Count + 1
            dr("question") = r.Item("question")
            dr("choice1") = r.Item("choice1")
            dr("choice2") = r.Item("choice2")
            dr("choice3") = r.Item("choice3")
            dr("choice4") = r.Item("choice4")
            dr("correct") = r.Item("correct")
            'dr("explain") = r.Item("explain") 'if there is no column called explain, it will show error
            dr("selected") = ""
            dt.Rows.Add(dr)

        Next

        session = dt

        Call _show()

        If ctr = 0 Then
            BtnPrev.Enabled = False


        End If
        If ctr = 4 Then
            BtnNext.Enabled = False
        End If

        cnn.Close() 'connection closed
    End Sub

Sub _show()

    dt = session
    'Dim v As View


    Dim l As Label
    l = Label1
    l.Text = dt.Rows(ctr).Item("Serial") & "."
    l = Label2
    l.Text = dt.Rows(ctr).Item("question")



    Dim r As RadioButton
    'r = CType(v.FindControl("RadioButtonList1"), RadioButtonList)
    r = RadioButton1
    ' r.Checked = False
    r.Text = (dt.Rows(ctr).Item("choice1"))
    r = RadioButton2
    r.Text = (dt.Rows(ctr).Item("choice2"))
    r = RadioButton3
    r.Text = (dt.Rows(ctr).Item("choice3"))
    r = RadioButton4
    r.Text = (dt.Rows(ctr).Item("choice4"))
    

    Session_ctr = ctr
End Sub