怎么批量修改Labeld的caption值
程序代码：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编辑过]
