Sub rbtAnswer_CheckedChange(Checked As Boolean)
If Checked = True Then
Dim rbt As RadioButton
'countera=tl
rbt = Sender
If rbt.Tag = RightIndex.Get(Qnumber) Then
countera=countera+1
Msgbox("Correct", "Result")
Msgbox(countera, "Result")
btnNext_Click
Else
Msgbox("Wrong", "Result")
End If
End If
countera2=countera
End Sub