好不容易把问题说清楚了。Frame是容器。
也很简单，一条语句

Private Sub Check1_Click(Index As Integer)
  Set Text1.Container = Frame2(Index)
End Sub

窗体布置如下图

Private Sub HeLiFou_Click(Index As Integer)
    Text.Move helifou(Index).Left, helifou(Index).Top + helifou(Index).Height
end sub