Dim i As LongFor i = 1 To 32 Me.Controls("Check" & CStr(i)).Value = 1NextとかDim i As LongFor i = 1 To 32 CallByName(Me, "Check" & CStr(i), VbGet).Value = 1Nextとか。