>>328
適当に作ったけどこんな感じかな。
Formにいくらコマンドボタンを置いても共通のIAllGotFocus_AllGotFocusが発生する。
この例はコマンドボタンだけ対応。他のコントロールに対応したかったら、
それ専用のClass1を作成するか、Class1を改造したり、まぁ他にも色々工夫してくれ。

<Form1>
Implements IAllGotFocus
Private m_controls As New Collection

Private Sub IAllGotFocus_AllGotFocus(ByVal ctrl As Control)
　　Debug.Print ctrl.Name
End Sub

Private Sub Form_Load()
　　Dim ctrl As Control
　　For Each ctrl In Controls
　　　　If TypeOf ctrl Is CommandButton Then
　　　　　　Dim c1 As Class1
　　　　　　Set c1 = New Class1
　　　　　　c1.SetControl ctrl, Me
　　　　　　m_controls.Add c1
　　　　End If
　　Next ctrl
End Sub

Private Sub Form_Unload(Cancel As Integer)
　　Set m_controls = Nothing
End Sub