你 需 要 先 編 寫 一 個(gè) 程 序 B， 并 將 其 編 譯 為 EXE。 如 果 你 希 望 今 后 允 許 程 序 A定 制 程 序 B的 某 個(gè) 文 本 框 ， 可 以 先 將 該 文 本 框 的 Caption屬 性 設(shè) 置 為 “ Change Me!Change Me!” 之 類 首 先 定 義 好 的 字 符 串 。 然 后 程 序 A以 二 進(jìn) 制 方 式 打 開 程 序 B， 然 后 在 其 中 查 找 “ Change Me!Change Me!” 字 符 串 ， 并 將 其 改 變 為 程 序 A中 設(shè) 置 的 文 字 。 但 這 種 方 法 有 幾 個(gè) 缺 點(diǎn) ： 
    1、 字 符 串 長(zhǎng) 度 有 限 ； 
    2、 對(duì) 于 VB來(lái) 說(shuō) ， 編 譯 后 有 的 中 文 字 符 串 編 譯 后 格 式 有 些 辦 法 ， 不 好 處 理 。 
    也 可 以 采 用 另 一 種 辦 法 。 程 序 A將 設(shè) 置 信 息 保 存 在 程 序 B文 件 的 尾 部 。 用 程 序 B以 二 進(jìn) 制 方 式 打 開 其 自 己 的 EXE文 件 ， 利 用 Seek命 令 移 動(dòng) 到 指 定 位 置 讀 出 設(shè) 置 信 息 。 如 ： 
     Dim s As String * 100 
     
     On Error GoTo ErrHandler 
     Open App.Path + "\" + App.EXEName + ".EXE" For Binary As #1 
     Seek 1, 20480 ' 這 里 是 EXE文 件 的 長(zhǎng) 度 
     Get 1, , s 
     Label1.Caption = s 
     Close #1 
     Exit Sub 
    如 何 確 定 EXE文 件 的 長(zhǎng) 度 的 具 體 數(shù) 值 呢 ？ 先 編 譯 程 序 B， 看 看 程 序 B的 EXE文 件 的 長(zhǎng) 度 ， 例 如 17234。 然 后 將 上 面 的 20480改 為 17234， 再 編 譯 一 次 程 序 B。 
<END>