vb 关于复选框的问题请老师帮忙

以下代码
Private Sub Command20_Click()
If Form3.Check1.Value = 1 Then
Dim i&, j&, m&, tn&(2), ts$(2), n() As Byte

ts(0) = "01234"
ts(1) = "56789"
ts(2) = " "
End If
For i = list1.ListCount - 1 To 0 Step -1

tn(0) = 3
tn(1) = 0
tn(2) = 0

n = StrConv(list1.List(i), 128)

For j = 0 To 2
For m = 0 To 2
If InStr(ts(m), Chr(n(j))) > 0 Then tn(m) = tn(m) - 1
Next
Next
If tn(0) = 0 And tn(1) = 0 And tn(2) = 0 Then Else list1.RemoveItem i

Next
End Sub

是Check1的条件，我还有Check2-Check4个复选框
Check2的条件是
tn(0) = 2
tn(1) = 1
tn(2) = 0
Check3的条件
tn(0) = 1
tn(1) = 2
tn(2) = 0
Check4的条件
tn(0) = 0
tn(1) = 3
tn(2) = 0
请老师告诉我，这个合并代码将如何写，刚才把第一个样板照葫芦画瓢的分别改成Check2-Check4加在Check1下，却不好使，有时多选就完蛋了，请老师帮忙改一下
如果用组，那么判断代码该怎么写呢，是不是还是用单个的比较好呢，
因为将来这样的新窗口判断还有很多呢，C

VB复选框的问题。。 vb复选框的问题 vb中复选框的问题 关于复选框是否选中的问题 急！！！关于EXCEL复选框的问题 vb的listbox的复选问题 求助！！ vb复选框和单选框问题 关于VB的问题,请大家帮忙 关于页面中复选框和文本框的特效问题，请高手回答！！ asp复选框的提交问题!高手帮忙?