非常感谢版主！

能否上传一个实际的示例呢？谢谢！

Public VBInstance As VBIDE.VBE
Public Connect As Connect

Option Explicit

Private Sub CancelButton_Click()
    Connect.Hide
End Sub

Private Sub Command1_Click()
Dim SourceComponent As VBComponent
Dim comp As VBComponent
Dim ctrl As VBControl
Dim DESTForm As VBForm
Dim DESTTextBox As VBControl
Set SourceComponent = VBInstance.VBProjects.Item(Text1.Text).VBComponents.Item(Text2.Text)
Text3.Text = SourceComponent.CodeModule.Lines(1, SourceComponent.CodeModule.CountOfLines)

For Each comp In VBInstance.ActiveVBProject.VBComponents
    Text3.Text = Text3.Text & vbCrLf & comp.Name
    If (comp.Type = vbext_ct_VBForm And comp.Name = Text5.Text) Then Set DESTForm = comp.Designer
   
Next
For Each ctrl In DESTForm.ContainedVBControls
    Text3.Text = Text3.Text & vbCrLf & ctrl.Properties("Name").Value & "[" & ctrl.ClassName & "]"
    If ctrl.Properties("Name").Value = Text4.Text Then ctrl.Properties("Text") = Text3.Text
Next


End Sub

Private Sub Form_Load()

End Sub

Private Sub OKButton_Click()
    MsgBox "外接程序操作作用于: " & VBInstance.FullName
End Sub

ADDIN窗体如ReadCode窗体

厉害！这不是破解exe获得的吧。

上传个附件（VB源码）吧，我弄了半天，没整好。

今天喝了几杯，有点小晕，看代码晕晕的.

谢谢！

[ 本帖最后由 opelwang 于 2015-4-14 14:32 编辑 ]

这个比较偏，用得不多，说了用VBIDE,应该自己找找VBIDE相关资料。
再送你一程，
新建一“外接程序”工程，Form1代码原样粘贴上贴代码。Form1上控件按图中ReadCode窗体建。
指定窗体的代码取出来后，后续的完善就容易了。

好， 谢谢版主指点，自己摸索一下。

能告诉我做哪些引用吗，现在都无法编译。

新建“外接程序”工程，会自动引用。

还是没弄好。

外接程序编辑的结果是DLL文件，然后....

版主，能上传一个附件吗？谢谢。

另外，指示一下操作及调用方法，谢谢。

编译后的dll文件放在vb目录下,改windows目录下的vbaddin.ini文件
在未尾加ReadCode.Connect=0
打开VB6,点"外接程序"下的"外接程序管理器",加载ReadCode.
加载后,"外接程序"下出现"My AddIn".点就可以用了.

[ 本帖最后由 lianyicq 于 2015-4-14 17:24 编辑 ]