A1,A2,A3とゆう名前のオプションボタンがあるとして例えば 
 
dim a as object 
 
For i = 1 to 3 
    a = "A" & i 
　　a.Text = i 
Next 
 
こんな感じの事をしたいのですがどのようにすれば良いでしょうか？VB6を使っています。どうかよろしくお願いします。