#Region "Deklaration"
        Private m_LastActiveControls As New List(Of _
          System.Windows.Forms.Control)
        Private m_Form As System.Windows.Forms.Form = Nothing
        Private m_MaxControls As Integer = 10
#End Region
 
#Region "Propertys"
 
        Public ReadOnly Property prop_LastActiveControls() As List(Of _
          System.Windows.Forms.Control)
            Get
                Return m_LastActiveControls
            End Get
        End Property
 
        Public Property prop_MaxControls() As Integer
            Get
                Return m_MaxControls
            End Get
            Set(ByVal value1 As Integer)
                m_MaxControls = value1
            End Set
        End Property
 
        Public Property prop_Form() As System.Windows.Forms.Form
            Get
                Return m_Form
            End Get
            Set(ByVal value1 As System.Windows.Forms.Form)
                m_Form = value1
 
                If Me.DesignMode = False Then
                    If Not m_Form Is Nothing Then
                        AddHandler CType(m_Form, _
                          System.Windows.Forms.Form).Load, AddressOf Form_Load
                    End If
                End If
 
            End Set
        End Property
 
#End Region
 
#Region "Funktionen"
 
        Public Sub AddhandlerForControls(ByVal curControl As _
          System.Windows.Forms.Control)
            If Not curControl Is Nothing Then
                If Not TypeOf (curControl) Is System.Windows.Forms.Form Then
                    AddHandler curControl.GotFocus, AddressOf control_GotFocus
                End If
 
                For i As Integer = 0 To curControl.Controls.Count - 1
                    AddhandlerForControls(curControl.Controls(i))
                Next
            End If
        End Sub
 
        Private Sub control_GotFocus(ByVal sender As Object, ByVal e As _
          System.EventArgs)
            If m_LastActiveControls.Count > m_MaxControls Then
                m_LastActiveControls.RemoveAt(0)
            End If
 
            If m_LastActiveControls.Count > 0 Then
                If Not sender Is m_LastActiveControls( _
                  m_LastActiveControls.Count - 1) Then
                    m_LastActiveControls.Add(sender)
                End If
            Else
                m_LastActiveControls.Add(sender)
            End If
        End Sub
 
        Private Sub Form_Load(ByVal sender As System.Object, ByVal e As _
          System.EventArgs)
            Call AddhandlerForControls(m_Form)
        End Sub
 
#End Region