Какой ProgID у RichTextBox - VB

Формулировка задачи:

Привет! пытаюсь, динамически подключить RichTextBox, не получается подскажите, кто знает?

Set tx1 = Controls.Add("RichTextBoxLib.RichTextBox", "tx1")

Уже все возможные варианты наугад перепробывал..

Set tx1 = Controls.Add("RICHTX32.RichTextBox", "tx1")

в интернете ничего нет.. даже на китайском ((

Решение задачи: «Какой ProgID у RichTextBox»

textual
                            Листинг программы 
                        

                            Dim WithEvents tx1 As VBControlExtender
Dim WithEvents tx2 As VBControlExtender
Private Declare Sub InitCommonControls Lib "comctl32.dll" ()
Private Sub Form_Initialize():   InitCommonControls: End Sub
 
Private Sub Form_Load()
'    frmWait.Start
    ChDir App.Path
'    RICHTX32.OCX
 
   If RegSvr32("RICHTX32.OCX", True) Then
        Call Licenses.Add("RICHTEXT.RichTextCtrl", "{3B7C8863-D78F-101B-B9B5-04021C009402}#1.2#0")
        Set tx1 = Controls.Add("RICHTEXT.RichTextCtrl", "tx1", Me)
'        Set tx1 = Controls.Add("RICHTX.RichTextBox", "tx1")
   End If
 
    Me.Caption = App.EXEName & App.Major & "." & App.Minor
    tx1.Text = ""
    tx2.Text = ""
End Sub
                        