VB的 處 理 方 式 與 VFP不 同 ， 所 以 你 需 要 自 己 添 加 一 些 代 碼 。 
    1、 在 窗 體 上 放 置 4組 標 簽 和 文 本 框 ， 假 定 文 本 框 為 Text1數 組 。 
    2、 設 置 每 個 文 本 框 的 MaxLength 屬 性 。 MaxLength 屬 性 指 出 在 TextBox 控 件 中 能 夠 輸 入 的 字 符 是 否 有 一 個 最 大 數 量 ， 如 果 是 ， 則 指 定 能 夠 輸 入 的 字 符 的 最 大 數 量 。 注 意 ： 在 中 文 系 統 中 ， 每 個 字 符 能 夠 取 兩 個 字 節 而 不 是 一 個 字 節 ， 以 此 來 限 制 你 能 夠 輸 入 的 字 符 的 數 量 。 所 以 如 果 你 在 數 據 庫 中 定 義 “ 姓 名 ” 字 段 為 8個 字 節 ， 則 應 該 設 置 MaxLength 屬 性 為 4（ 即 4個 中 文 字 符 ） ， 而 “ 年 齡 ” 字 段 為 3個 字 節 ， 則 MaxLength 屬 性 為 3， 即 3個 數 字 。 
    3、 在 文 本 框 的 Change事 件 中 輸 入 ： 
    Private Sub Text1_Change(ByVal Index As Integer) 
     If Index < 3 And Len(Text1(Index).Text) = Text1(Index).MaxLength Then 
     Text1(Index + 1). SetFocus 
     End If 
    End Sub 
    關 鍵 是 SetFocus方 法 ， 如 果 你 想 移 動 輸 入 焦 點 從 一 個 控 件 到 另 一 個 控 件 ， 就 應 該 使 用 該 方 法 。 
<END>