在Form1中有3个Label，制作成控件数组，Index = 0 TO 2，每个的Caption都不同，点击其中任意一个Label，跳出Form2，Form2上有一个TextBOX和一个Command，TextBOX读取Form1的所点击的Label的Caption，（截止到这，以上都已实现，问题在下方），在Form2.Text1.Text 中的进行修改，点击Command，Form2关闭，Form1中所点击的Label的Caption被重新赋值成Form2.Text1.Text 修改后的内容。

说得简单点，就是将Form1中的已成为控件数组的Label其中之一的Caption通过Form2.Text1.Text内容改名。

请教：以上标红部分代码怎么写呢？

很简单。使用模式窗口打开即可，代码如下：
'form1代码
Private Sub Label1_Click(Index As Integer)
  Label1(Index).Caption = Form2.setcap
End Sub

'form2代码
Dim retcap As String
Public Function setcap() As String
  Me.Show 1
  setcap = retcap
End Function

Private Sub Command1_Click()
  Unload Me
End Sub

Private Sub Text1_Change()
  retcap = Text1
End Sub

非常感谢专家的回复，我的问题已经解决！再次谢谢！