A Frame named Frame1.
Dim MyControl As Control
Private Sub TraceFocus()
ListBox1.AddItem ActiveControl.Name
ListBox1.List(ListBox1.ListCount - 1, 1) = ActiveControl.TabIndex
End Sub
Private Sub UserForm_Initialize()
ListBox1.ColumnCount = 2
ListBox1.AddItem "Controls Visited"
ListBox1.List(0, 1) = "Control Index"
End Sub
Private Sub Frame1_Enter()
TraceFocus
End Sub
Private Sub ListBox1_Enter()
TraceFocus
End Sub
Private Sub OptionButton1_Enter()
TraceFocus
End Sub
Private Sub OptionButton2_Enter()
TraceFocus
End Sub
Private Sub ScrollBar1_Enter()
TraceFocus
End Sub