How to speed the TaskPanel up?

I added a Taskpanel into a form, and typed these code:

Private Sub Form_Load()
    Dim dwStart As Long
    Dim dwEnd As Long
    Dim Group As TaskPanelGroup
    Dim i As Integer
   
    dwStart = GetTickCount()
    Set Group = wndToolBox.Groups.Add(0, "test")
    For i = 1 To 250
        Group.Items.Add i, "test" & CStr(i), xtpTaskItemTypeLink
    Next i
    dwEnd = GetTickCount
   
    MsgBox "It takes " & CDbl((dwEnd - dwStart) / 1000) & " seconds."
End Sub

I found that it took me about 6 seconds to add only 250 items.
Is there any way to speed that up?

BTW: my test environment is CPU:Pentium(R) M 1400MHz, Memory: 768MB, OS: Microsoft Windows XP Home with SP2

Thanks for your reply.

I am using TaskPanel as a toolbox.
and there are about 200 items of 20 groups in the toolbox.
but, unfortunately, the inefficient TaskPanel makes me very headachy.

i tried the sample on a P4 2.8G computer, and it took 8.7 seconds....

Is that a new property of TaskPanel? My VB6.0 with SP6 reported an error:
"Object doesn't support this propertyr method". and the cursor stopped at the first line: "wndToolBox.LockRedraw = True"

i'm using 9.51 version.

Thank you!!

 I got it.

but , would "a slight delay" be more than 3 seconds?