动态加载第三方控件，并使用其属性和方法？解决思路

动态加载第三方控件，并使用其属性和方法？
************看下面的代码***************
*                 Cell组件没有被添加到                   *
*                 VB控件工具箱                                   *
***************************************
Private   WithEvents   CellObj   As   VBControlExtender

Private   Sub   Command1_Click()
  With   CellObj
    .Left   =   0
    .Top   =   0
    .Width   =   Me.ScaleWidth
    .Height   =   Me.ScaleHeight
    .Visible   =   True
    .setcellstring   2,   2,   0,   "fxgang "   '//这行出现错误：setcellstring这个方法不被支持，但是Cell组件是有这个方法的呀。
  End   With
End   Sub

Private   Sub   Form_Load()
  Set   CellObj   =   Controls.Add( "Cell.Cell50Ctrl.1 ",   "frmCell ",   Me)
End   Sub
'//Cell.Cell50Ctrl.1为Cell组件的pgID

**********再看下面的代码***************
*                 Cell组件被添加到                           *
*                 VB控件工具箱                                   *
***************************************
Private   WithEvents   CellObj   As   CELL50Lib.Cell

Private   Sub   Command1_Click()   '//一旦单击出现   CellObj对象未设置
  With   CellObj
    .Left   =   0
    .Top   =   0
    .Width   =   Me.ScaleWidth
    .Height   =   Me.ScaleHeight
  End   With
End   Sub




[解决办法]
// .setcellstring 2, 2, 0, "fxgang " '//这行出现错误：setcellstring这个方法不被支持，但是Cell组件是有这个方法的呀。

.object.setcellstring 2, 2, 0, "fxgang " '//这行出现错误：setcellstring这个方法不被支持，但是Cell组件是有这个方法的呀。