你需要先编写一个程序B，并将其编译为EXE。如果你希望今后允许程序A定制程序B的某个文本框，可以先将该文本框的Caption属性设置为“Change Me!Change Me!”之类首先定义好的字符串。然后程序A以二进制方式打开程序B，然后在其中查找“Change Me!Change Me!”字符串，并将其改变为程序A中设置的文字。但这种方法有几个缺点： 

　　1、字符串长度有限； 

　　2、对于VB来说，编译后有的中文字符串编译后格式有些办法，不好处理。 

　　也可以采用另一种办法。程序A将设置信息保存在程序B文件的尾部。用程序B以二进制方式打开其自己的EXE文件，利用Seek命令移动到指定位置读出设置信息。如： 

Dim s As String * 100 

On Error GoTo ErrHandler 
Open App.Path + "" + App.EXEName + ".EXE" For Binary As #1 
Seek 1, 20480 ＇ 这里是EXE文件的长度 
Get 1, , s 
Label1.Caption = s 
Close #1 
Exit Sub