如何通过代码获取一个控件的ProgId

“Add 方法（Controls 集合）


在 Controls 集合中添加一个控件并返回一个对该控件的引用。

语法

object.Add (ProgID, name, container)

当中的ProgID就例如：
CommandButton的ProgID就是“Vb.CommandButton”（在对象浏览器中看到的）
RichTextBox的ProgID就是“RICHTeEXT.RichTextLib.1”（在调用上面的方法后产生711的错误，在错误描述里看到的）

然而，即使在错误描述里面有，也总不能让用户看到了再把这个ProgID输回来吧，而且，错误描述不一定有ProgID！！怎么办。以前用过这个方法的人帮帮忙。

Option Explicit

Dim WithEvents x As RichTextLib.RichTextBox

Private Sub Form_Load()
  Set x = Controls.Add("RICHTEXT.RichTextCtrl.1", "AA")
  x.Visible = True
  x.Move 0, 0, 1000, 1000
End Sub

Private Sub x_Change()
  'ddddddddddddddd
End Sub

有type这个函数吗？

你是提问还是回答问题啊？
如果是
提问：开个帖子
回答问题：似乎牛头不对马嘴啊