[VB.NET]有关控件组的问题!

<script type="text/javascript"> </script> <script type="text/javascript" src="http://pagead2.googlesyndication.com/pagead/show_ads.js"> </script>
有关控件组的问题!
Private Timer_BaoJing(3) As System.Timers.Timer
Private lblAd(3) As Label
我就是想把这两个控件一一对应起来
在timer的事件里操作label,

Private Sub Form1_Load(ByVal sender As Object, ByVal e As System.EventArgs) Handles Me.Load

For i = 0 To 3
lblAd(i) = New Label

lblAd(i).TextAlign = ContentAlignment.MiddleCenter
lblAd(i).Top = 100 ''随便给的位置
lblAd(i).Left = 100 ''随便给的位置
lblAd(i).Visible = True
lblAd(i).AutoSize = False
lblAd(i).Name = i
lblAd(i).Text = i
lblAd(i).Show()

Me.Controls.Add(lblAd(i))
Next
''**********************************************************

For i = 0 To 2
Timer_BaoJing(i) = New System.Timers.Timer
Timer_BaoJing(i).AutoReset = True

AddHandler Timer_BaoJing(i).Elapsed, AddressOf BaoJing_Timer

Timer_BaoJing(i).Interval = 1000 * i + 3000
Timer_BaoJing(i).Enabled = True
Next
End Sub

Private Sub BaoJing_Timer(ByVal sender As Object, ByVal e As System.Timers.ElapsedEventArgs)

For i = 0 To 2
If sender.Equals(Timer_BaoJing(i)) Then
a = i

lblAd(i).BackColor = Color.Blue ''到这里就出错了,线程之间的问题

End If
Next

End Sub
__________________________________________________________________________
请问怎么在这个timer的事件里控制别的控件!???
__________________________________________________________________________
Public Class Form1

Private Timer_BaoJing(3) As System.Timers.Timer
Private lblAd(3) As Label
Private i As Integer

Private Sub Form1_Load(ByVal sender As Object, ByVal e As System.EventArgs) Handles Me.Load

For i = 0 To 3
lblAd(i) = New Label

lblAd(i).TextAlign = ContentAlignment.MiddleCenter
lblAd(i).Top = 100 * i ''随便给的位置
lblAd(i).Left = 100 ''随便给的位置
lblAd(i).Visible = True
lblAd(i).AutoSize = False
lblAd(i).Name = i
lblAd(i).Text = i
lblAd(i).Show()

Me.Controls.Add(lblAd(i))
Next
''**********************************************************

For i = 0 To 2
Timer_BaoJing(i) = New System.Timers.Timer
Timer_BaoJing(i).AutoReset = True

AddHandler Timer_BaoJing(i).Elapsed, AddressOf BaoJing_Timer

Timer_BaoJing(i).Interval = 1000 * i + 1000
Timer_BaoJing(i).Enabled = True
Next
End Sub

Private Sub BaoJing_Timer(ByVal sender As Object, ByVal e As System.Timers.ElapsedEventArgs)

For i = 0 To 2
If sender.Equals(Timer_BaoJing(i)) Then
''a = i
lblAd(i).BackColor = Color.Blue ''到这里就出错了,线程之间的问题
End If
Next

End Sub

End Class

代码没什么大问题，定义一下变量i，屏蔽无用代码a=i后 可以正常运行啊。
__________________________________________________________________________
如果有线程之间的问题，可以使用委托的方式，如：

Public Class Form1

Private Timer_BaoJing(3) As System.Timers.Timer
Private lblAd(3) As Label
Private i As Integer

Private Sub Form1_Load(ByVal sender As Object, ByVal e As System.EventArgs) Handles Me.Load

For i = 0 To 3
lblAd(i) = New Label

lblAd(i).TextAlign = ContentAlignment.MiddleCenter
lblAd(i).Top = 100 * i ''随便给的位置
lblAd(i).Left = 100 ''随便给的位置
lblAd(i).Visible = True
lblAd(i).AutoSize = False
lblAd(i).Name = i
lblAd(i).Text = i
lblAd(i).Show()

Me.Controls.Add(lblAd(i))
Next
''**********************************************************

For i = 0 To 2
Timer_BaoJing(i) = New System.Timers.Timer
Timer_BaoJing(i).AutoReset = True

AddHandler Timer_BaoJing(i).Elapsed, AddressOf BaoJing_Timer

Timer_BaoJing(i).Interval = 1000 * i + 3000
Timer_BaoJing(i).Enabled = True
Next
End Sub

Private Sub BaoJing_Timer(ByVal sender As Object, ByVal e As System.Timers.ElapsedEventArgs)

For i = 0 To 2
If sender.Equals(Timer_BaoJing(i)) Then
''a = i
''lblAd(i).BackColor = Color.Blue ''到这里就出错了,线程之间的问题
Me.Invoke(New MySub(AddressOf ChangeBackColor), i) ''使用委托的方法
End If
Next

End Sub

Private Delegate Sub MySub(ByVal i As Integer)

Private Sub ChangeBackColor(ByVal i As Integer)
lblAd(i).BackColor = Color.Blue
End Sub

End Class
__________________________________________________________________________
用select case sender.tabindex end select 这样的选择结构
__________________________________________________________________________