你对For循环的理解是完全错误的！
富川网站制作公司哪家好，找创新互联建站！从网页设计、网站建设、微信开发、APP开发、响应式网站建设等网站项目制作，到程序开发，运营维护。创新互联建站从2013年开始到现在10年的时间，我们拥有了丰富的建站经验和运维经验，来保证我们的工作的顺利进行。专注于网站建设就选创新互联建站。
For循环的代码应修改为：
For i = 0 To un
ListBox2.Items.Add(ListBox1.Items(i))
Next
就这三行就行了！i的值会自动递增的，再放i=i+1不但多余，而且会使i的值按0、2、4、6……递增，这样的话ListBox1的第1、3、5……项就被跳过了！另外，i的值是肯定不会大于un的，所以if i=un then是完全多余的。
yyyymmdd不是数组，需要定义成数组后才能使用
Dim yyyymmdd(2) as String
while为条件循环，for为计数循环。一般情况下，WHILE可替代FOR，反之则不然。
你有控件是没错，有方法也没错
但是你没有为控件添加对应的委托，即没有把事件处理方法（Bt_Click）添加到控件的事件队列中去
你应该使用AddHandler语句，具体请查看MSDN
For i As Integer = 1 To 8
Dim TC As CheckBox = Me.Controls("ComboBox" i)
If TC.Checked Then
TextBox1.Text = TextBox1.Text "," TC.Checked.ToString()
End If
Next
