关于将控件做参数传递的问题， 难！！！

首先，我设置了一个公共数组变量，myFilterConNames() ,该变量由Function SetmyFilterConNames( ParamArray args() As Variant )设置，

具体设置方法是在SUB过程里调用该函数，例如 Call SetmyFilterConNames(Chk120, Chk121, Chk122, Chk123, Chk124) 其中都是Checkbox控件，

Public myFilterConNames() As Variant

Function SetmyFilterConNames(ParamArray args() As Variant)
Dim i As Integer
Dim num As Integer
  num = UBound(args)
  ReDim myFilterConNames(num)
  For i = 0 To UBound(args)
    myFilterConNames(i) = args(i)
    MsgBox myFilterConNames(i)
  Next i
End Function

还有个Function myFilter() 函数， 希望在这函数里面通过语句 If myFilterConNames(i).Value Then 。。。 确定窗体中控件是否选中来来执行操作

注明：Function SetmyFilterConNames( ParamArray args() As Variant )使用的是不确定参数数量函数，因此只能使用Variant数据类型，而不能用object类型，所以我发现传递过去的不是控件本身，而是当控件选中时，传递的是-1，即myFilterConNames(i) = args(i) = -1；没选中时为False，myFilterConNames(i) = args(i) = False； 但当原来选中的，取消选中时传递过去的又变成0，myFilterConNames(i) = args(i) = 0。   不知道为什么，  所以我现在用的是 If myFilterConNames(i) Then 。。。 确定窗体中控件是否选中来来执行操作。 

我刚查了一下，VBA 用-1代表true， 0代表false ，  问题是为什么一开始选中的控件传递的是-1，而没选中的传递的是false，而不用0表示呢， 接下来选中的取消选中传递值又变为0

另外，我的本意是想传递控件本身，而不是仅仅是否选中的值，这样我好在调用函数里面设置控件属性。请高手指教！