Private Sub Label12_Click(Index As Integer)
Dim i As Integer
Dim n As Integer
n = 0
For i = 0 To Label12.UBound
n = n + 1
Label12(i).Caption = "测试点" & n
Next
End Sub

代码已写好，但是每次要点击才会触发，怎么让程序不用点击直接显示
另外，有没有代码可以批量修改字体和大小，刚才用的fontsize=16,不管用啊

[此贴子已经被作者于2016-8-3 23:22编辑过]

怎么让程序不用点击直接显示

把代码放在 form_load过程中执行一次，就是在窗体显示时已显示好了。
如果内容不是固定值，那在值修改时再显示一回。
Label12(i).font.size=16
没用？

这哈有用了， 我是没写Font.Size中间那个点，谢谢

Private Sub Form_Load()
'窗体的其他启动代码
Dim i As Integer
Dim n As Integer
n = 0
For i = 0 To Label12.UBound
n = n + 1
Label12(i).Caption = "测试点" & n
Next i
'窗体的其他启动代码
End Sub

在窗体的Form_Load事件(窗体启动加载事件，窗体必须的事件)中加载，加载后直接显示Label12所有内容的更新了。

Label12(i).font.size = 16 的意思是设置Label12标签的字体大小，如果字体大小你已经设置好了，这个语句可以不要。

[此贴子已经被作者于2016-8-4 13:27编辑过]