YESのオプションボタンがONになっているフレーム番号をフォーム上に表示する方法

よろしくお願いします。
　フォーム上の問１、問２・・・とフレームを作り各フレームの中にyes、noのオプションボタンを起きます。そして、回答を入力し、チッェクのためにyesの問の番号をフォーム上の空白部に表示させる方法を検討しています。何か簡単でいい方法はないでしょうか。
　現在は、ラベルを配置して一つのラベルに問い３つの状況を表示させるような関数を書いて行っていますが面倒なのでどうにか簡単にしたいのです。

No.1 回答者： kikujack 回答日時： 2008/05/04 10:59

ぜんぜん面倒じゃないと思います。

問１のオプションボタンのIndexはすべて「1」になります
問２のは２、問３のは３、......

Private Sub Command1_Click()
Dim result As String
For Each Control In Me.Controls
If TypeOf Control Is OptionButton Then
If Control.Value Then
result = result & vbCrLf & "問" & Control.Index & ":" & Control.Caption
End If
End If
Next

Label1.Caption = result
End Sub