运行效果：

程序代码：

Private Sub Form_Load()

   For i = 0 To Label1.Count - 1

       Label1(i).Caption = "移动鼠标"

   Next i

End Sub