Sub episode1_click
'........................................
rbtAnswer1(0).Initialize("rbtAnswer1")
rbtAnswer1(0).Tag = 0
rbtAnswer1(0).TextColor = Colors.Blue
pnle1.AddView(rbtAnswer1(0), 10dip, 60dip, 450dip, 75dip)
rbtAnswer1(1).Initialize("rbtAnswer1")
rbtAnswer1(1).Tag = 1
rbtAnswer1(1).TextColor = Colors.Blue
pnle1.AddView(rbtAnswer1(1), 10dip, 120dip, 450dip, 75dip)
rbtAnswer1(2).Initialize("rbtAnswer1")
rbtAnswer1(2).Tag = 2
rbtAnswer1(2).TextColor = Colors.Blue
pnle1.AddView(rbtAnswer1(2), 10dip, 180dip, 450dip, 75dip)
'.......... more code