如图所示：10个Check控件数组和10个Label控件数组，想要达到的效果如下：
1、随意勾选某个Check，Check后面相应Label内容自动填入后面Text中，最多勾选4个；
2、取消某个已勾选Check，后面Text中已显示的相应Label内容清空；
3、新勾选某个新的Check，新的Check后面相应Label内容自动填入刚才空出的Text中。

举实例说就是：
1、我按北京、山东、重庆、浙江的顺序分别进行勾选（再多选就跳Msgbox），后面四个Text中就按照我勾选的顺序分别显示北京、山东、重庆、浙江；
2、我取消已勾选的山东，第二个Text空出；
3、我再勾选中河北，第二个Text中显示河北。

不知我这样说是否明白了？请教这样如何编写程序？

附程序界面压缩包。

Private Sub Check1_Click(Index As Integer)
  Dim i As Integer, j As Integer
  j = 0
  For i = 0 To Check1.Count - 1
    j = j + Check1(i).Value
  Next
  If j > 4 Then
    MsgBox "最多选择4个城市"
    Check1(Index).Value = 0
    Exit Sub
  End If
  j = 0
  Text1 = ""
  Text2 = ""
  Text3 = ""
  Text4 = ""
  For i = 0 To Check1.Count - 1
    If Check1(i).Value = 1 And j < 4 Then
      If j = 0 Then Text1 = Label1(i)
      If j = 1 Then Text2 = Label1(i)
      If j = 2 Then Text3 = Label1(i)
      If j = 3 Then Text4 = Label1(i)
      j = j + 1
    End If
  Next
End Sub

楼主在论坛也算是老人了，为什么还是总在问这么简单的问题？感觉你的水平一点都没有提高