【VB2008】For Eachを使い、チェックをFalseする

質問

For Eachを使い、チェックボックス5～25の
チェックをFalseしたいのですが、どうすればいいのか分かりません。
どなたかご教授願いします。

CheckBox5.Checked = False
CheckBox6.Checked = False
・・・
CheckBox25.Checked = False

回答No.1

n-jun

例えば、

For Each ctl As Object In Me.Controls
　If TypeOf ctl Is CheckBox Then
　　　Select Case Val(Replace(ctl.Name, "CheckBox", ""))
　　　　　　　Case 5 To 25
　　　　　　　　　　ctl.Checked = False
　　　　　　　Case Else
　　　End Select
　End If
Next

とかでしょうか？