Android Question Code Question Database

Sub episode1_click
    Activity.SetBackgroundImage(LoadBitmap(File.DirAssets, "jerichobackground.png"))
    rbtAnswer1(0).Initialize("rbtAnswer")
    rbtAnswer1(0).Tag = 0
    pnle1.AddView(rbtAnswer1(0), 10dip, 60dip, 450dip, 75dip)
    rbtAnswer1(1).Initialize("rbtAnswer")
    rbtAnswer1(1).Tag = 1
    pnle1.AddView(rbtAnswer1(1), 10dip, 120dip, 450dip, 75dip)
    rbtAnswer1(2).Initialize("rbtAnswer")
    rbtAnswer1(2).Tag = 2
    pnle1.AddView(rbtAnswer1(2), 10dip, 180dip, 450dip, 75dip)
    If File.Exists(File.DirDefaultExternal, "SeasonOne.db") = False Then
        File.Copy(File.DirAssets, "SeasonOne.db", File.DirDefaultExternal, "SeasonOne.db")
    End If
    QuestionList.Initialize
    AnswerList1.Initialize
    AnswerList2.Initialize
    AnswerList3.Initialize
    RightIndex.Initialize
    xSQL.Initialize(File.DirDefaultExternal, "SeasonOne.db", True)

    xCursor = xSQL.ExecQuery("SELECT * FROM One ")
    Log(xCursor.RowCount)
    For i = 0 To xCursor.RowCount - 1
        xCursor.Position = i
        Log(xCursor.GetString("Question"))
        Log(xCursor.GetString("ChoiceOne"))
        Log(xCursor.GetString("ChoiceTwo"))
        Log(xCursor.GetString("ChoiceThree"))
        Log(xCursor.GetString("ansind"))
        Log(" ")
        QuestionList.Add(xCursor.GetString("Question"))
        AnswerList1.Add(xCursor.GetString("ChoiceOne"))
        AnswerList2.Add(xCursor.GetString("ChoiceTwo"))
        AnswerList3.Add(xCursor.GetString("ChoiceThree"))
        RightIndex.Add(xCursor.GetInt("ansind"))
    Next
    xCursor.Close
    btnNexte1_Click
End Sub

Sub rbtAnswer1_CheckedChange(Checked As Boolean)
    If Checked = True Then
        Dim rbt As RadioButton
        rbt = Sender
        If rbt.Tag = RightIndex.Get(Qnumber) Then
            Msgbox("Correct answer", "Result")
            btnNexte1_Click
        Else
            Msgbox("Wrong answer", "Result")
        End If
    End If
End Sub

Sub btnNexte1_Click
    Dim Result As Int

    Counter = Counter + 1
'    Qnumber = Rnd(0, 6)
    Qnumber = Counter Mod 10
'    If Qnumber >= 6 Then
'        Qnumber = 0
'    End If
    lblQuestione1.Text = QuestionList.Get(Qnumber)
 
    If Counter = 10 Then
        Result = Msgbox2("Episode One Completed", "Score", "Continue", "Finish", "", Null)
        Counter = 0
    End If
    rbtAnswer1(0).Checked = False
    rbtAnswer1(1).Checked = False
    rbtAnswer1(2).Checked = False
    rbtAnswer1(0).Text = AnswerList1.Get(Qnumber)
    rbtAnswer1(1).Text = AnswerList2.Get(Qnumber)
    rbtAnswer1(2).Text = AnswerList3.Get(Qnumber)
End Sub

Sub rbtAnswer_CheckedChange(Checked As Boolean)
    If Checked = True Then
        Dim rbt As RadioButton
        rbt = Sender
        If rbt.Tag = RightIndex.Get(Qnumber) Then
            Msgbox("Correct answer", "Result")
            btnNexte1_Click
        Else
            Msgbox("Wrong answer", "Result")
        End If
    End If
End Sub