vb新手提问请高手多多指教

Private Sub Command20_Click()

Dim i&, j&, m&, tn&(2), ts$(2), n() As Byte

ts(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) = 0
End If
If Form3.Check2.Value = 1 Then
tn(0) = 2
tn(1) = 1
tn(2) = 0
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 i

Next
End Sub
这个代码为什么单独选一个复选好使，选择两个就会只显示Check2的数据呢，修改什么语句能使选择两个后，两个数据都显示呢
你的代码本身就有问题,当执行完第一个检查以后,还继续检查第二个有没有被选,结果你两个都选了,当然是显示最后一个数据了. 这个我知道，但是就是改不好。
如果向楼下所说，那么单选将来不是失效了吗

新手上路，问题多多请指教一下吧？ 新手上路请多多指教,调帐 我是新手,还请大家多多指教 新手玩暗黑 问题多多请指教 请ps高手多多指教 请高手帮我看看以下配置：新手上路，还请多多指教！！ vb 高手请指教 VB 高手请指教？ 新手,请证券方面高手多多指教了,小弟先谢过了 一个菜鸟关于病毒的提问，请各位高手多多指教