VB动态加载组件的速度问题

大家遇到这样的问题没有:用Controls.Add加载用户控件用时总是15毫秒,而加载VB自代的控件确为0毫秒
如下
    Private Declare Function GetTickCount Lib "KERNEL32" () As Long
    Dim T1 As Long, T2 As Long

    T1 = GetTickCount()
    Dim r As Rect
    Set r = Controls.Add("VBRect.Rect", "rect")  'VBRect.Rect为自定义控件
    T2 = GetTickCount()
    T2 = T2 - T1
    MsgBox T2

    T1 = GetTickCount()
    Dim r As TextBox
    Set r = Controls.Add("VB.textbox", "text")
    T2 = GetTickCount()
    T2 = T2 - T1
    MsgBox T2 --------------------编程问答-------------------- 自带的控件容易加载啊 --------------------编程问答-------------------- 能否让用户控件的速度提升的自带的控件差不多? --------------------编程问答-------------------- 我现在用户控件生成界面，用户控件太多，界面运行速度太慢，如何能提升用户控件的加载速度？ --------------------编程问答-------------------- 可以考虑在窗体显示之前将所有控件都加载好

补充：VB ,  控件