Activate a text box from a option group

[mobuto]

My problem is that I have an option group with two option boxes, one says yes and the value is 1, and the other option box says no and the value is 2. What I want to do is that when a user clicks the option button yes, I want the focus to move to text box 98, otherwise, when the user clicks the option button no, I want the focus to move to text box 100. Do u have any tips?

 

[vb5prgrmr]

Private sub option1_click(Index as integer)

if option1(0).value=true then
text1.setfocus
else
text2.setfocus
end if

end sub

Something like that???

 

[mobuto]

Thanks a bunch