以TextBox 的GotFocus和、LostFocus事件为例，让FORM中的两个TextBox用同样的事件。

1、建一个类，名为ClassFocus，类代码如下：

Private WithEvents Text<a href="/tag/Box/" target="_blank" class="keywords">Box</a> As Text<a href="/tag/Box/" target="_blank" class="keywords">Box</a> Public Sub SetText<a href="/tag/Box/" target="_blank" class="keywords">Box</a>(vData As Text<a href="/tag/Box/" target="_blank" class="keywords">Box</a>) Set Text<a href="/tag/Box/" target="_blank" class="keywords">Box</a> = vData End Sub Private Sub Text<a href="/tag/Box/" target="_blank" class="keywords">Box</a>_GotFocus() Text<a href="/tag/Box/" target="_blank" class="keywords">Box</a>.BackColor = &HC0FFC0 Text<a href="/tag/Box/" target="_blank" class="keywords">Box</a>.SelStart = 0 Text<a href="/tag/Box/" target="_blank" class="keywords">Box</a>.SelLength = Len(Text<a href="/tag/Box/" target="_blank" class="keywords">Box</a>.Text) End Sub Private Sub Text<a href="/tag/Box/" target="_blank" class="keywords">Box</a>_LostFocus() Text<a href="/tag/Box/" target="_blank" class="keywords">Box</a>.BackColor = &H80000005 End Sub

2、Form代码如下：

Dim txt(2) As New ClassFocus Private Sub Form_Load() txt(0).SetText<a href="/tag/Box/" target="_blank" class="keywords">Box</a> Text<a href="/tag/Box/" target="_blank" class="keywords">Box</a>1 txt(1).SetText<a href="/tag/Box/" target="_blank" class="keywords">Box</a> Text<a href="/tag/Box/" target="_blank" class="keywords">Box</a>2 End Sub