在我的C 2.4G 256M WinXP+SP2 VB6+SP6 的机器上试了以下代码:
Private Sub Form_Load()
Dim i As Long, t As Single
t = Timer
For i = 1 To 15
Load Fra(i) 'Frame
Next
For i = 1 To 120
Load Txt(i) 'TextBox
Load Cbo(i) 'ComboBox
Load Lst(i) 'ListBox
Load Cmd(i) 'CommandButton
Next
Debug.Print Timer - t
End Sub
整整500个控件,用时1.2秒,不算慢吧!呵呵!
看来,你Form_load中的代码可能也有问题,贴出来看看!