7,763
社区成员
发帖
与我相关
我的任务
分享
Private Declare Function GetTickCount Lib "kernel32" () As Long
Private Sub Command1_Click()
Dim i As Long
Dim t As Long
t = GetTickCount
For i = 1 To 1000
Load label1(i)
label1(i).Visible = True
Next
Me.Caption = GetTickCount - t
End Sub
Private Sub Command2_Click()
Dim i As Long
Dim t As Long
t = GetTickCount
For i = 1 To 1000
Load uc1(i)
uc1(i).Visible = True
Next
Me.Caption = GetTickCount - t
End Sub