VB6: How to create an Antview control dynamically?

[AlKalm]

Hello, programmers!

I need to dynamically create Antview controls becose of function to open and close some number of web views with the tab-control.

I have try some code, but it give the error message only: Type mssmatch!

Code:

Public Function MakeTheAnt()
  Dim oCtrl As Object
  Dim oAntview As Antview
  'Or Dim oAntView As AntViewAx2.Antview
 
  Set oCtrl = Controls.Add("AntViewAx2.Antview", "oCtrl")
  Set oAntview = oCtrl.object '->Error: Type missmatch
 
  'Or Set oAntview = CreateObject( "AntViewAx2.Antview", "") '->Error: Type missmatch
End Function

Any idea?..