请问：选项按钮赋值有关问题(Access+vba)

请教：选项按钮赋值问题(Access+vba)
我有个按钮控件，想单击后，选中并执行下一函数，其中给按钮赋值时出错，是为什么呢
Private Sub OptA_MouseDown(Button As Integer, Shift As Integer, X As Single, Y As Single)
 
OptA.Value = 1
Call nextSub
End Sub

提示运行时错误“2448”
您不能将数值指定给这个对象

[解决办法]
OptA.Value = 1不要.Value试试！