====有关Load方法将每个OLE控件放到每个PictureBox控件上，为何OLE控件显示不出的问题====

有两个控件数组，分别为PictureBox数组和Ole控件数组，都从0开始。现在我想通过程序运行时生成N多个PictureBox控件和Ole控件，每个PictureBox中放置一个Ole，但是通过如下的方法居然显示不出来，非常郁闷，肯定高手解决：Declare Function SetParent Lib "user32" (ByVal hWndChild As Long, ByVal hWndNewParent As Long) As LongPrivate Sub Command1_Click()
    Dim i As Integer
    i = pic.Count
    
    Load pic(i)
    Load oledoc(i)
    
    pic(i).Visible = True
    pic(i).Move pic(i - 1).Left, pic(i - 1).Top + pic(i - 1).Height + 120, _
        pic(i - 1).Width, pic(i - 1).Height
    
    oledoc(i).Visible = True
    oledoc(i).Move 120, 120, oledoc(i - 1).Width, oledoc(i - 1).Height
    
    SetParent oledoc(i).hWnd, pic(i).hWnd
    
End Sub