其 實 你 可 以 使 用 控 件 數(shù) 組 實 現(xiàn) ， 這 樣 你 只 需 要 寫 一 次 事 件 代 碼 就 可 以 了 。 
    如 果 由 于 某 種 原 因 你 無 法 使 用 控 件 數(shù) 組 ， 你 可 以 使 用 下 面 的 辦 法 ： 
    先 增 加 一 個 類 模 塊 (Class1) 
    Option Explicit 
     
    Public WithEvents txt As TextBox 
     
    Public Property Set TextBoxCtl(OutsideTextBox As TextBox) 
     Set txt = OutsideTextBox 
    End Property 
     
    Private Sub txt_GotFocus() 
     txt.ForeColor = vbRed 
    End Sub 
     
    Private Sub txt_LostFocus() 
     txt.ForeColor = vbBlack 
    End Sub 
    然 后 在 Form中 輸 入 以 下 代 碼 ： 
    Dim clsTextBox() As Class1 
     
    Private Sub Form_Load() 
     Dim i, j 
     
     j = 1 
     For i = 0 To Controls.Count - 1 
     If TypeOf Controls(i) Is TextBox Then 
     ReDim Preserve clsTextBox(j) As Class1 
     Set clsTextBox(j) = New Class1 
     Set clsTextBox(j).TextBoxCtl = Controls(i) 
     j = j + 1 
     End If 
     Next 
    End Sub
<END>