フォームの 10 個を超えるラジオ ボタンで "For" ステートメントを使用すると問題が発生します。
1 つのラジオ ボタンのサンプル:
If Form2.RadioButton1.Checked = True Then
Form2.RadioButton1.ForeColor = Color.Red
Else
Form2.RadioButton1.ForeColor = Color.Yellow
End If
しかし、フォームの任意のラジオボタンでこれを使用したい場合は、次のようなものを使用します。
Dim i As Integer
For i = 1 To 10
If Form2.RadioButton(i).Checked = True Then
Form2.RadioButton(i).ForeColor = Color.Red
Else
Form2.RadioButton(i).ForeColor = Color.Yellow
End If
Next