Private Declare Function GetTickCount Lib "kernel32" () As Long
Dim i As Long
Dim Trrm As Long
Trrm = GetTickCount
For i = 0 To 1000
AddItem
Next
MsgBox "添加[" & Max & "]条数据共用：" & (GetTickCount - Trrm) & "毫秒"
分类
问答社区
软件专区
全部评论