请专家改一下，复选框的代码

Question

专家老师请看
Private Sub Command20_Click()Dim i&, j&, m&, tn&(2), ts$(2), n() As Bytets(0) = "01234"
ts(1) = "56789"
ts(2) = ""For i = list1.ListCount - 1 To 0 Step -1
If Form3.Check1.Value = 1 Then
tn(0) = 3
tn(1) = 0
tn(2) = 0If Form3.Check2.Value = 1 Thentn(0) = 2
tn(1) = 1
tn(2) = 0End If
End If
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 iNext
End Sub
这个代码为什么单独选一个复选好使，选择两个就会只显示Check2的数据呢，修改什么语句能使选择两个后，两个数据都显示呢

Answer 1

代码真的很难懂，说明一下你要实现的功能吧