View difference between Paste ID: dubt4nPG and ypuQdKf0

 
 ' [ Control Iterator ]
 '
-' // By Elektro H@cker
+' By Elektro H@cker
 
 #Region " Usage Examples "
 
 ' ControlIterator.Disable(CheckBox1)
 '
 ' ControlIterator.Enable({CheckBox1, CheckBox2})
 '
 ' ControlIterator.Check(Of CheckBox)(Me)
 '
 ' ControlIterator.Uncheck(Of CheckBox)(Me.GroupBox1)
 '
 ' ControlIterator.Hide(Of CheckBox)("1")
 '
 ' ControlIterator.PerformAction(Of CheckBox)(Sub(ctrl As CheckBox) ctrl.Visible = True)
 '
 ' ControlIterator.AsyncPerformAction(RichTextBox1,
 '                                    Sub(rb As RichTextBox)
 '                                        For n As Integer = 0 To 9
 '                                            rb.AppendText(CStr(n))
 '                                        Next
 '                                    End Sub)
 '
 ' ControlIterator.PerformAction(Me.Controls, Sub(c As Control)
 '                                                c.BackColor = Color.Green
 '                                            End Sub)
 
 #End Region
 
 #Region " Control Iterator "
 
 ''' <summary>
 ''' Iterates a serie of Controls to perform an operation.
 ''' </summary>
 Public Class ControlIterator
 
 #Region " Public Methods "
 
 #Region " Enable "
 
 #Region " Synchronous "
 
     ''' <summary>
     ''' Enable an specific Control.
     ''' </summary>
     ''' <param name="Control">Indicates the Control to enable.</param>
     Public Shared Function Enable(ByVal Control As Object) As Boolean
         Return EnableOrDisable({Control}, True)
     End Function
 
     ''' <summary>
     ''' Enable multiple Controls at once.
     ''' </summary>
     ''' <param name="Controls">Indicates the Controls to enable.</param>
     Public Shared Function Enable(ByVal Controls As IEnumerable(Of Object)) As Boolean
         Return EnableOrDisable(Controls, True)
     End Function
 
     ''' <summary>
     ''' Enable all the Controls of the specified Type on the active Formulary.
     ''' </summary>
     ''' <param name="ContainsName">Indicates that only controls containing name should be collected.</param>
     Public Shared Function Enable(Of T)(Optional ByVal ContainsName As String = Nothing) As Boolean
 
         Return EnableOrDisable(Form.ActiveForm.Controls.OfType(Of T).
                         Where(Function(ctrl) Not CType(ctrl, Object).Enabled), True, ContainsName)
 
     End Function
 
     ''' <summary>
     ''' Enable all the Controls of the specified Type on the specified Control Container.
     ''' </summary>
     ''' <param name="ControlContainer">Indicates the control container where to find the controls.</param>
     ''' <param name="ContainsName">Indicates that only controls containing name should be collected.</param>
     Public Shared Function Enable(Of T)(ByVal ControlContainer As Control,
                                         Optional ByVal ContainsName As String = Nothing) As Boolean
 
         Return EnableOrDisable(ControlContainer.Controls.OfType(Of T).
                         Where(Function(ctrl) Not CType(ctrl, Object).Enabled), True, ContainsName)
 
     End Function
 
     ''' <summary>
     ''' Enable all the Controls of the specified Type on the specified Control Collection.
     ''' </summary>
     ''' <param name="ControlCollection">Indicates the control collection where to find the controls.</param>
     ''' <param name="ContainsName">Indicates that only controls containing name should be collected.</param>
     Public Function Enable(Of T)(ByVal ControlCollection As Control.ControlCollection,
                                  Optional ByVal ContainsName As String = Nothing) As Boolean
 
         Return EnableOrDisable(ControlCollection.OfType(Of T).
                         Where(Function(ctrl) Not CType(ctrl, Object).Enabled), True, ContainsName)
 
     End Function
 
 #End Region
 
 #Region " Asynchronous "
 
     ''' <summary>
     ''' Asynchronouslly Enable an specific Control.
     ''' </summary>
     ''' <param name="Control">Indicates the Control to enable.</param>
     Public Shared Function AsyncEnable(ByVal Control As Object) As Boolean
         Return AsyncEnableOrDisable({Control}, True)
     End Function
 
     ''' <summary>
     ''' Asynchronouslly Enable multiple Controls at once.
     ''' </summary>
     ''' <param name="Controls">Indicates the Controls to enable.</param>
     Public Shared Function AsyncEnable(ByVal Controls As IEnumerable(Of Object)) As Boolean
         Return AsyncEnableOrDisable(Controls, True)
     End Function
 
     ''' <summary>
     ''' Asynchronouslly Enable all the Controls of the specified Type on the active Formulary.
     ''' </summary>
     ''' <param name="ContainsName">Indicates that only controls containing name should be collected.</param>
     Public Shared Function AsyncEnable(Of T)(Optional ByVal ContainsName As String = Nothing) As Boolean
 
         Return AsyncEnableOrDisable(Form.ActiveForm.Controls.OfType(Of T).
                              Where(Function(ctrl) Not CType(ctrl, Object).Enabled), True, ContainsName)
 
     End Function
 
     ''' <summary>
     ''' Asynchronouslly Enable all the Controls of the specified Type on the specified Control Container.
     ''' </summary>
     ''' <param name="ControlContainer">Indicates the control container where to find the controls.</param>
     ''' <param name="ContainsName">Indicates that only controls containing name should be collected.</param>
     Public Shared Function AsyncEnable(Of T)(ByVal ControlContainer As Control,
                                              Optional ByVal ContainsName As String = Nothing) As Boolean
 
         Return AsyncEnableOrDisable(ControlContainer.Controls.OfType(Of T).
                              Where(Function(ctrl) Not CType(ctrl, Object).Enabled), True, ContainsName)
 
     End Function
 
     ''' <summary>
     ''' Asynchronouslly Enable all the Controls of the specified Type on the specified Control Collection.
     ''' </summary>
     ''' <param name="ControlCollection">Indicates the control collection where to find the controls.</param>
     ''' <param name="ContainsName">Indicates that only controls containing name should be collected.</param>
     Public Function AsyncEnable(Of T)(ByVal ControlCollection As Control.ControlCollection,
                                       Optional ByVal ContainsName As String = Nothing) As Boolean
 
         Return AsyncEnableOrDisable(ControlCollection.OfType(Of T).
                              Where(Function(ctrl) Not CType(ctrl, Object).Enabled), True, ContainsName)
 
     End Function
 
 #End Region
 
 #End Region
 
 #Region " Disable "
 
 #Region " Synchronous "
 
     ''' <summary>
     ''' Disable an specific Control.
     ''' </summary>
     ''' <param name="Control">Indicates the Control to disable.</param>
     Public Shared Function Disable(ByVal Control As Object) As Boolean
         Return EnableOrDisable({Control}, False)
     End Function
 
     ''' <summary>
     ''' Disable multiple Controls at once.
     ''' </summary>
     ''' <param name="Controls">Indicates the Controls to disable.</param>
     Public Shared Function Disable(ByVal Controls As IEnumerable(Of Object)) As Boolean
         Return EnableOrDisable(Controls, False)
     End Function
 
     ''' <summary>
     ''' Disable all the Controls of the specified Type on the active Formulary.
     ''' </summary>
     ''' <param name="ContainsName">Indicates that only controls containing name should be collected.</param>
     Public Shared Function Disable(Of T)(Optional ByVal ContainsName As String = Nothing) As Boolean
 
         Return EnableOrDisable(Form.ActiveForm.Controls.OfType(Of T).
                         Where(Function(ctrl) CType(ctrl, Object).Enabled), False, ContainsName)
 
     End Function
 
     ''' <summary>
     ''' Disable all the Controls of the specified Type on the specified Control Container.
     ''' </summary>
     ''' <param name="ControlContainer">Indicates the control container where to find the controls.</param>
     ''' <param name="ContainsName">Indicates that only controls containing name should be collected.</param>
     Public Shared Function Disable(Of T)(ByVal ControlContainer As Control,
                                          Optional ByVal ContainsName As String = Nothing) As Boolean
 
         Return EnableOrDisable(ControlContainer.Controls.OfType(Of T).
                         Where(Function(ctrl) CType(ctrl, Object).Enabled), False, ContainsName)
 
     End Function
 
     ''' <summary>
     ''' Disable all the Controls of the specified Type on the specified Control Collection.
     ''' </summary>
     ''' <param name="ControlCollection">Indicates the control collection where to find the controls.</param>
     ''' <param name="ContainsName">Indicates that only controls containing name should be collected.</param>
     Public Shared Function Disable(Of T)(ByVal ControlCollection As Control.ControlCollection,
                                          Optional ByVal ContainsName As String = Nothing) As Boolean
 
         Return EnableOrDisable(ControlCollection.OfType(Of T).
                         Where(Function(ctrl) CType(ctrl, Object).Enabled), False, ContainsName)
 
     End Function
 
 #End Region
 
 #Region " Asynchronous "
 
     ''' <summary>
     ''' Asynchronouslly Disable an specific Control.
     ''' </summary>
     ''' <param name="Control">Indicates the Control to disable.</param>
     Public Shared Function AsyncDisable(ByVal Control As Object) As Boolean
         Return AsyncEnableOrDisable({Control}, False)
     End Function
 
     ''' <summary>
     ''' Asynchronouslly Disable multiple Controls at once.
     ''' </summary>
     ''' <param name="Controls">Indicates the Controls to disable.</param>
     Public Shared Function AsyncDisable(ByVal Controls As IEnumerable(Of Object)) As Boolean
         Return AsyncEnableOrDisable(Controls, False)
     End Function
 
     ''' <summary>
     ''' Asynchronouslly Disable all the Controls of the specified Type on the active Formulary.
     ''' </summary>
     ''' <param name="ContainsName">Indicates that only controls containing name should be collected.</param>
     Public Shared Function AsyncDisable(Of T)(Optional ByVal ContainsName As String = Nothing) As Boolean
 
         Return AsyncEnableOrDisable(Form.ActiveForm.Controls.OfType(Of T).
                              Where(Function(ctrl) CType(ctrl, Object).Enabled), False, ContainsName)
 
     End Function
 
     ''' <summary>
     ''' Asynchronouslly Disable all the Controls of the specified Type on the specified Control Container.
     ''' </summary>
     ''' <param name="ControlContainer">Indicates the control container where to find the controls.</param>
     ''' <param name="ContainsName">Indicates that only controls containing name should be collected.</param>
     Public Shared Function AsyncDisable(Of T)(ByVal ControlContainer As Control,
                                               Optional ByVal ContainsName As String = Nothing) As Boolean
 
         Return AsyncEnableOrDisable(ControlContainer.Controls.OfType(Of T).
                              Where(Function(ctrl) CType(ctrl, Object).Enabled), False, ContainsName)
 
     End Function
 
     ''' <summary>
     ''' Asynchronouslly Disable all the Controls of the specified Type on the specified Control Collection.
     ''' </summary>
     ''' <param name="ControlCollection">Indicates the control collection where to find the controls.</param>
     ''' <param name="ContainsName">Indicates that only controls containing name should be collected.</param>
     Public Shared Function AsyncDisable(Of T)(ByVal ControlCollection As Control.ControlCollection,
                                               Optional ByVal ContainsName As String = Nothing) As Boolean
 
         Return AsyncEnableOrDisable(ControlCollection.OfType(Of T).
                              Where(Function(ctrl) CType(ctrl, Object).Enabled), False, ContainsName)
 
     End Function
 
 #End Region
 
 #End Region
 
 #Region " Show "
 
 #Region " Synchronous "
 
     ''' <summary>
     ''' Show an specific Control.
     ''' </summary>
     ''' <param name="Control">Indicates the Control to show.</param>
     Public Shared Function Show(ByVal Control As Object) As Boolean
         Return ShowOrHide({Control}, True)
     End Function
 
     ''' <summary>
     ''' Show multiple Controls at once.
     ''' </summary>
     ''' <param name="Controls">Indicates the Controls to show.</param>
     Public Shared Function Show(ByVal Controls As IEnumerable(Of Object)) As Boolean
         Return ShowOrHide(Controls, True)
     End Function
 
     ''' <summary>
     ''' Show all the Controls of the specified Type on the active Formulary.
     ''' </summary>
     ''' <param name="ContainsName">Indicates that only controls containing name should be collected.</param>
     Public Shared Function Show(Of T)(Optional ByVal ContainsName As String = Nothing) As Boolean
 
         Return ShowOrHide(Form.ActiveForm.Controls.OfType(Of T).
                    Where(Function(ctrl) Not CType(ctrl, Object).Visible), True, ContainsName)
 
     End Function
 
     ''' <summary>
     ''' Show all the Controls of the specified Type on the specified Container.
     ''' </summary>
     ''' <param name="ControlContainer">Indicates the control container where to find the controls.</param>
     ''' <param name="ContainsName">Indicates that only controls containing name should be collected.</param>
     Public Shared Function Show(Of T)(ByVal ControlContainer As Control,
                                       Optional ByVal ContainsName As String = Nothing) As Boolean
 
         Return ShowOrHide(ControlContainer.Controls.OfType(Of T).
                    Where(Function(ctrl) Not CType(ctrl, Object).Visible), True, ContainsName)
 
     End Function
 
     ''' <summary>
     ''' Show all the Controls of the specified Type on the specified Control Collection.
     ''' </summary>
     ''' <param name="ControlCollection">Indicates the control collection where to find the controls.</param>
     ''' <param name="ContainsName">Indicates that only controls containing name should be collected.</param>
     Public Shared Function Show(Of T)(ByVal ControlCollection As Control.ControlCollection,
                                       Optional ByVal ContainsName As String = Nothing) As Boolean
 
         Return ShowOrHide(ControlCollection.OfType(Of T).
                    Where(Function(ctrl) Not CType(ctrl, Object).Visible), True, ContainsName)
 
     End Function
 
 #End Region
 
 #Region " Asynchronous "
 
     ''' <summary>
     ''' Asynchronouslly Show an specific Control.
     ''' </summary>
     ''' <param name="Control">Indicates the Control to show.</param>
     Public Shared Function AsyncShow(ByVal Control As Object) As Boolean
         Return AsyncShowOrHide({Control}, True)
     End Function
 
     ''' <summary>
     ''' Asynchronouslly Show multiple Controls at once.
     ''' </summary>
     ''' <param name="Controls">Indicates the Controls to show.</param>
     Public Shared Function AsyncShow(ByVal Controls As IEnumerable(Of Object)) As Boolean
         Return AsyncShowOrHide(Controls, True)
     End Function
 
     ''' <summary>
     ''' Asynchronouslly Show all the Controls of the specified Type on the active Formulary.
     ''' </summary>
     ''' <param name="ContainsName">Indicates that only controls containing name should be collected.</param>
     Public Shared Function AsyncShow(Of T)(Optional ByVal ContainsName As String = Nothing) As Boolean
 
         Return AsyncShowOrHide(Form.ActiveForm.Controls.OfType(Of T).
                         Where(Function(ctrl) Not CType(ctrl, Object).Visible), True, ContainsName)
 
     End Function
 
     ''' <summary>
     ''' Asynchronouslly Show all the Controls of the specified Type on the specified Container.
     ''' </summary>
     ''' <param name="ControlContainer">Indicates the control container where to find the controls.</param>
     ''' <param name="ContainsName">Indicates that only controls containing name should be collected.</param>
     Public Shared Function AsyncShow(Of T)(ByVal ControlContainer As Control,
                                            Optional ByVal ContainsName As String = Nothing) As Boolean
 
         Return AsyncShowOrHide(ControlContainer.Controls.OfType(Of T).
                         Where(Function(ctrl) Not CType(ctrl, Object).Visible), True, ContainsName)
 
     End Function
 
     ''' <summary>
     ''' Asynchronouslly Show all the Controls of the specified Type on the specified Control Collection.
     ''' </summary>
     ''' <param name="ControlCollection">Indicates the control collection where to find the controls.</param>
     ''' <param name="ContainsName">Indicates that only controls containing name should be collected.</param>
     Public Shared Function AsyncShow(Of T)(ByVal ControlCollection As Control.ControlCollection,
                                            Optional ByVal ContainsName As String = Nothing) As Boolean
 
         Return AsyncShowOrHide(ControlCollection.OfType(Of T).
                         Where(Function(ctrl) Not CType(ctrl, Object).Visible), True, ContainsName)
 
     End Function
 
 #End Region
 
 #End Region
 
 #Region " Hide "
 
 #Region " Synchronous "
 
     ''' <summary>
     ''' Hide an specific Control.
     ''' </summary>
     ''' <param name="Control">Indicates the Control to hide.</param>
     Public Shared Function Hide(ByVal Control As Object) As Boolean
         Return ShowOrHide({Control}, False)
     End Function
 
     ''' <summary>
     ''' Hide multiple Controls at once.
     ''' </summary>
     ''' <param name="Controls">Indicates the Controls to hide.</param>
     Public Shared Function Hide(ByVal Controls As IEnumerable(Of Object)) As Boolean
         Return ShowOrHide(Controls, False)
     End Function
 
     ''' <summary>
     ''' Hide all the Controls of the specified Type on the active Formulary.
     ''' </summary>
     ''' <param name="ContainsName">Indicates that only controls containing name should be collected.</param>
     Public Shared Function Hide(Of T)(Optional ByVal ContainsName As String = Nothing) As Boolean
 
         Return ShowOrHide(Form.ActiveForm.Controls.OfType(Of T).
                    Where(Function(ctrl) CType(ctrl, Object).Visible), False, ContainsName)
 
     End Function
 
     ''' <summary>
     ''' Hide all the Controls of the specified Type on the specified Container.
     ''' </summary>
     ''' <param name="ControlContainer">Indicates the control container where to find the controls.</param>
     ''' <param name="ContainsName">Indicates that only controls containing name should be collected.</param>
     Public Shared Function Hide(Of T)(ByVal ControlContainer As Control,
                                       Optional ByVal ContainsName As String = Nothing) As Boolean
 
         Return ShowOrHide(ControlContainer.Controls.OfType(Of T).
                    Where(Function(ctrl) CType(ctrl, Object).Visible), False, ContainsName)
 
     End Function
 
     ''' <summary>
     ''' Hide all the Controls of the specified Type on the specified Control Collection.
     ''' </summary>
     ''' <param name="ControlCollection">Indicates the control collection where to find the controls.</param>
     ''' <param name="ContainsName">Indicates that only controls containing name should be collected.</param>
     Public Shared Function Hide(Of T)(ByVal ControlCollection As Control.ControlCollection,
                                       Optional ByVal ContainsName As String = Nothing) As Boolean
 
         Return ShowOrHide(ControlCollection.OfType(Of T).
                    Where(Function(ctrl) CType(ctrl, Object).Visible), False, ContainsName)
 
     End Function
 
 #End Region
 
 #Region " Asynchronous "
 
     ''' <summary>
     ''' Asynchronouslly Hide an specific Control.
     ''' </summary>
     ''' <param name="Control">Indicates the Control to hide.</param>
     Public Shared Function AsyncHide(ByVal Control As Object) As Boolean
         Return AsyncShowOrHide({Control}, False)
     End Function
 
     ''' <summary>
     ''' Asynchronouslly Hide multiple Controls at once.
     ''' </summary>
     ''' <param name="Controls">Indicates the Controls to hide.</param>
     Public Shared Function AsyncHide(ByVal Controls As IEnumerable(Of Object)) As Boolean
         Return AsyncShowOrHide(Controls, False)
     End Function
 
     ''' <summary>
     ''' Asynchronouslly Hide all the Controls of the specified Type on the active Formulary.
     ''' </summary>
     ''' <param name="ContainsName">Indicates that only controls containing name should be collected.</param>
     Public Shared Function AsyncHide(Of T)(Optional ByVal ContainsName As String = Nothing) As Boolean
 
         Return AsyncShowOrHide(Form.ActiveForm.Controls.OfType(Of T).
                         Where(Function(ctrl) CType(ctrl, Object).Visible), False, ContainsName)
 
     End Function
 
     ''' <summary>
     ''' Asynchronouslly Hide all the Controls of the specified Type on the specified Container.
     ''' </summary>
     ''' <param name="ControlContainer">Indicates the control container where to find the controls.</param>
     ''' <param name="ContainsName">Indicates that only controls containing name should be collected.</param>
     Public Shared Function AsyncHide(Of T)(ByVal ControlContainer As Control,
                                            Optional ByVal ContainsName As String = Nothing) As Boolean
 
         Return AsyncShowOrHide(ControlContainer.Controls.OfType(Of T).
                         Where(Function(ctrl) CType(ctrl, Object).Visible), False, ContainsName)
 
     End Function
 
     ''' <summary>
     ''' Asynchronouslly Hide all the Controls of the specified Type on the specified Control Collection.
     ''' </summary>
     ''' <param name="ControlCollection">Indicates the control collection where to find the controls.</param>
     ''' <param name="ContainsName">Indicates that only controls containing name should be collected.</param>
     Public Shared Function AsyncHide(Of T)(ByVal ControlCollection As Control.ControlCollection,
                                            Optional ByVal ContainsName As String = Nothing) As Boolean
 
         Return AsyncShowOrHide(ControlCollection.OfType(Of T).
                         Where(Function(ctrl) CType(ctrl, Object).Visible), False, ContainsName)
 
     End Function
 
 #End Region
 
 #End Region
 
 #Region " Check "
 
 #Region " Synchronous "
 
     ''' <summary>
     ''' Check an specific Control.
     ''' </summary>
     ''' <param name="Control">Indicates the Control to check.</param>
     Public Shared Function Check(ByVal Control As Object) As Boolean
         Return CheckOrUncheck({Control}, True)
     End Function
 
     ''' <summary>
     ''' Check multiple Controls at once.
     ''' </summary>
     ''' <param name="Controls">Indicates the Controls to check.</param>
     Public Shared Function Check(ByVal Controls As IEnumerable(Of Object)) As Boolean
         Return CheckOrUncheck(Controls, True)
     End Function
 
     ''' <summary>
     ''' Check all the Controls of the specified Type on the active Formulary.
     ''' </summary>
     ''' <param name="ContainsName">Indicates that only controls containing name should be collected.</param>
     Public Shared Function Check(Of T)(Optional ByVal ContainsName As String = Nothing) As Boolean
 
         Return CheckOrUncheck(Form.ActiveForm.Controls.OfType(Of T).
                        Where(Function(ctrl) Not CType(ctrl, Object).Checked), True, ContainsName)
 
     End Function
 
     ''' <summary>
     ''' Check all the Controls of the specified Type on the specified Control Container.
     ''' </summary>
     ''' <param name="ControlContainer">Indicates the control container where to find the controls.</param>
     ''' <param name="ContainsName">Indicates that only controls containing name should be collected.</param>
     Public Shared Function Check(Of T)(ByVal ControlContainer As Control,
                                        Optional ByVal ContainsName As String = Nothing) As Boolean
 
         Return CheckOrUncheck(ControlContainer.Controls.OfType(Of T).
                        Where(Function(ctrl) Not CType(ctrl, Object).Checked), True, ContainsName)
 
     End Function
 
     ''' <summary>
     ''' Check all the Controls of the specified Type on the specified Control Collection.
     ''' </summary>
     ''' <param name="ControlCollection">Indicates the control collection where to find the controls.</param>
     ''' <param name="ContainsName">Indicates that only controls containing name should be collected.</param>
     Public Shared Function Check(Of T)(ByVal ControlCollection As Control.ControlCollection,
                                        Optional ByVal ContainsName As String = Nothing) As Boolean
 
         Return CheckOrUncheck(ControlCollection.OfType(Of T).
                        Where(Function(ctrl) Not CType(ctrl, Object).Checked), True, ContainsName)
 
     End Function
 
 #End Region
 
 #Region " Asynchronous "
 
     ''' <summary>
     ''' Asynchronouslly Check an specific Control.
     ''' </summary>
     ''' <param name="Control">Indicates the Control to check.</param>
     Public Shared Function AsyncCheck(ByVal Control As Object) As Boolean
         Return AsyncCheckOrUncheck({Control}, True)
     End Function
 
     ''' <summary>
     ''' Asynchronouslly Check multiple Controls at once.
     ''' </summary>
     ''' <param name="Controls">Indicates the Controls to check.</param>
     Public Shared Function AsyncCheck(ByVal Controls As IEnumerable(Of Object)) As Boolean
         Return AsyncCheckOrUncheck(Controls, True)
     End Function
 
     ''' <summary>
     ''' Asynchronouslly Check all the Controls of the specified Type on the active Formulary.
     ''' </summary>
     ''' <param name="ContainsName">Indicates that only controls containing name should be collected.</param>
     Public Shared Function AsyncCheck(Of T)(Optional ByVal ContainsName As String = Nothing) As Boolean
 
         Return AsyncCheckOrUncheck(Form.ActiveForm.Controls.OfType(Of T).
                             Where(Function(ctrl) Not CType(ctrl, Object).Checked), True, ContainsName)
 
     End Function
 
     ''' <summary>
     ''' Asynchronouslly Check all the Controls of the specified Type on the specified Control Container.
     ''' </summary>
     ''' <param name="ControlContainer">Indicates the control container where to find the controls.</param>
     ''' <param name="ContainsName">Indicates that only controls containing name should be collected.</param>
     Public Shared Function AsyncCheck(Of T)(ByVal ControlContainer As Control,
                                             Optional ByVal ContainsName As String = Nothing) As Boolean
 
         Return AsyncCheckOrUncheck(ControlContainer.Controls.OfType(Of T).
                             Where(Function(ctrl) Not CType(ctrl, Object).Checked), True, ContainsName)
 
     End Function
 
     ''' <summary>
     ''' Asynchronouslly Check all the Controls of the specified Type on the specified Control Collection.
     ''' </summary>
     ''' <param name="ControlCollection">Indicates the control collection where to find the controls.</param>
     ''' <param name="ContainsName">Indicates that only controls containing name should be collected.</param>
     Public Shared Function AsyncCheck(Of T)(ByVal ControlCollection As Control.ControlCollection,
                                             Optional ByVal ContainsName As String = Nothing) As Boolean
 
         Return AsyncCheckOrUncheck(ControlCollection.OfType(Of T).
                             Where(Function(ctrl) Not CType(ctrl, Object).Checked), True, ContainsName)
 
     End Function
 
 #End Region
 
 #End Region
 
 #Region " Uncheck "
 
 #Region " Synchronous "
 
     ''' <summary>
     ''' Uncheck an specific Control.
     ''' </summary>
     ''' <param name="Control">Indicates the Control to uncheck.</param>
     Public Shared Function Uncheck(ByVal Control As Object) As Boolean
         Return CheckOrUncheck({Control}, False)
     End Function
 
     ''' <summary>
     ''' Uncheck multiple Controls at once.
     ''' </summary>
     ''' <param name="Controls">Indicates the Controls to uncheck.</param>
     Public Shared Function Uncheck(ByVal Controls As IEnumerable(Of Object)) As Boolean
         Return CheckOrUncheck(Controls, False)
 
     End Function
 
     ''' <summary>
     ''' Uncheck all the Controls of the specified Type on the active Formulary.
     ''' </summary>
     ''' <param name="ContainsName">Indicates that only controls containing name should be collected.</param>
     Public Shared Function Uncheck(Of T)(Optional ByVal ContainsName As String = Nothing) As Boolean
 
         Return CheckOrUncheck(Form.ActiveForm.Controls.OfType(Of T).
                        Where(Function(ctrl) CType(ctrl, Object).Checked), False, ContainsName)
 
     End Function
 
     ''' <summary>
     ''' Uncheck all the Controls of the specified Type on the specified Control Container.
     ''' </summary>
     ''' <param name="ControlContainer">Indicates the control container where to find the controls.</param>
     ''' <param name="ContainsName">Indicates that only controls containing name should be collected.</param>
     Public Shared Function Uncheck(Of T)(ByVal ControlContainer As Control,
                                          Optional ByVal ContainsName As String = Nothing) As Boolean
 
         Return CheckOrUncheck(ControlContainer.Controls.OfType(Of T).
                        Where(Function(ctrl) CType(ctrl, Object).Checked), False, ContainsName)
 
     End Function
 
     ''' <summary>
     ''' Uncheck all the Controls of the specified Type on the specified Control Collection.
     ''' </summary>
     ''' <param name="ControlCollection">Indicates the control collection where to find the controls.</param>
     ''' <param name="ContainsName">Indicates that only controls containing name should be collected.</param>
     Public Shared Function Uncheck(Of T)(ByVal ControlCollection As Control.ControlCollection,
                                          Optional ByVal ContainsName As String = Nothing) As Boolean
 
         Return CheckOrUncheck(ControlCollection.OfType(Of T).
                        Where(Function(ctrl) CType(ctrl, Object).Checked), False, ContainsName)
 
     End Function
 
 #End Region
 
 #Region " Asynchronous "
 
     ''' <summary>
     ''' Asynchronouslly Uncheck an specific Control.
     ''' </summary>
     ''' <param name="Control">Indicates the Control to uncheck.</param>
     Public Shared Function AsyncUncheck(ByVal Control As Object) As Boolean
         Return AsyncCheckOrUncheck({Control}, False)
     End Function
 
     ''' <summary>
     ''' Asynchronouslly Uncheck multiple Controls at once.
     ''' </summary>
     ''' <param name="Controls">Indicates the Controls to uncheck.</param>
     Public Shared Function AsyncUncheck(ByVal Controls As IEnumerable(Of Object)) As Boolean
         Return AsyncCheckOrUncheck(Controls, False)
     End Function
 
     ''' <summary>
     ''' Asynchronouslly Uncheck all the Controls of the specified Type on the active Formulary.
     ''' </summary>
     ''' <param name="ContainsName">Indicates that only controls containing name should be collected.</param>
     Public Shared Function AsyncUncheck(Of T)(Optional ByVal ContainsName As String = Nothing) As Boolean
 
         Return AsyncCheckOrUncheck(Form.ActiveForm.Controls.OfType(Of T).
                             Where(Function(ctrl) CType(ctrl, Object).Checked), False, ContainsName)
 
     End Function
 
     ''' <summary>
     ''' Asynchronouslly Uncheck all the Controls of the specified Type on the specified Control Container.
     ''' </summary>
     ''' <param name="ControlContainer">Indicates the control container where to find the controls.</param>
     ''' <param name="ContainsName">Indicates that only controls containing name should be collected.</param>
     Public Shared Function AsyncUncheck(Of T)(ByVal ControlContainer As Control,
                                               Optional ByVal ContainsName As String = Nothing) As Boolean
 
         Return AsyncCheckOrUncheck(ControlContainer.Controls.OfType(Of T).
                             Where(Function(ctrl) CType(ctrl, Object).Checked), False, ContainsName)
 
     End Function
 
     ''' <summary>
     ''' Asynchronouslly Uncheck all the Controls of the specified Type on the specified Control Collection.
     ''' </summary>
     ''' <param name="ControlCollection">Indicates the control collection where to find the controls.</param>
     ''' <param name="ContainsName">Indicates that only controls containing name should be collected.</param>
     Public Shared Function AsyncUncheck(Of T)(ByVal ControlCollection As Control.ControlCollection,
                                               Optional ByVal ContainsName As String = Nothing) As Boolean
 
         Return AsyncCheckOrUncheck(ControlCollection.OfType(Of T).
                             Where(Function(ctrl) CType(ctrl, Object).Checked), False, ContainsName)
 
     End Function
 
 #End Region
 
 #End Region
 
 #Region " Dispose "
 
 #Region " Synchronous "
 
     ''' <summary>
     ''' Dispose an specific Control.
     ''' </summary>
     ''' <param name="Control">Indicates the Control to dispose.</param>
     Public Shared Function Dispose(ByVal Control As Object) As Boolean
         Return DisposeControls({Control})
     End Function
 
     ''' <summary>
     ''' Dispose multiple Controls at once.
     ''' </summary>
     ''' <param name="Controls">Indicates the Controls to dispose.</param>
     Public Shared Function Dispose(ByVal Controls As IEnumerable(Of Object)) As Boolean
         Return DisposeControls(Controls)
     End Function
 
     ''' <summary>
     ''' Dispose all the Controls of the specified Type on the active Formulary.
     ''' </summary>
     ''' <param name="ContainsName">Indicates that only controls containing name should be collected.</param>
     Public Shared Function Dispose(Of T)(Optional ByVal ContainsName As String = Nothing) As Boolean
 
         Return DisposeControls(Form.ActiveForm.Controls.OfType(Of T).
                         Where(Function(ctrl) Not CType(ctrl, Object).IsDisposed), ContainsName)
 
     End Function
 
     ''' <summary>
     ''' Dispose all the Controls of the specified Type on the specified Control Container.
     ''' </summary>
     ''' <param name="ControlContainer">Indicates the control container where to find the controls.</param>
     ''' <param name="ContainsName">Indicates that only controls containing name should be collected.</param>
     Public Shared Function Dispose(Of T)(ByVal ControlContainer As Control,
                                          Optional ByVal ContainsName As String = Nothing) As Boolean
 
         Return DisposeControls(ControlContainer.Controls.OfType(Of T).
                         Where(Function(ctrl) Not CType(ctrl, Object).IsDisposed), ContainsName)
 
     End Function
 
     ''' <summary>
     ''' Dispose all the Controls of the specified Type on the specified Control Collection.
     ''' </summary>
     ''' <param name="ControlCollection">Indicates the control collection where to find the controls.</param>
     ''' <param name="ContainsName">Indicates that only controls containing name should be collected.</param>
     Public Shared Function Dispose(Of T)(ByVal ControlCollection As Control.ControlCollection,
                                          Optional ByVal ContainsName As String = Nothing) As Boolean
 
         Return DisposeControls(ControlCollection.OfType(Of T).
                         Where(Function(ctrl) Not CType(ctrl, Object).IsDisposed), ContainsName)
 
     End Function
 
 #End Region
 
 #Region " Asynchronous "
 
     ''' <summary>
     ''' Asynchronouslly Dispose an specific Control.
     ''' </summary>
     ''' <param name="Control">Indicates the Control to dispose.</param>
     Public Shared Function AsyncDispose(ByVal Control As Object) As Boolean
         Return AsyncDisposeControls({Control})
     End Function
 
     ''' <summary>
     ''' Asynchronouslly Dispose multiple Controls at once.
     ''' </summary>
     ''' <param name="Controls">Indicates the Controls to dispose.</param>
     Public Shared Function AsyncDispose(ByVal Controls As IEnumerable(Of Object)) As Boolean
         Return AsyncDisposeControls(Controls)
     End Function
 
     ''' <summary>
     ''' Asynchronouslly Dispose all the Controls of the specified Type on the active Formulary.
     ''' </summary>
     ''' <param name="ContainsName">Indicates that only controls containing name should be collected.</param>
     Public Shared Function AsyncDispose(Of T)(Optional ByVal ContainsName As String = Nothing) As Boolean
 
         Return AsyncDisposeControls(Form.ActiveForm.Controls.OfType(Of T).
                              Where(Function(ctrl) Not CType(ctrl, Object).IsDisposed), ContainsName)
 
     End Function
 
     ''' <summary>
     ''' Asynchronouslly Dispose all the Controls of the specified Type on the specified Control Container.
     ''' </summary>
     ''' <param name="ControlContainer">Indicates the control container where to find the controls.</param>
     ''' <param name="ContainsName">Indicates that only controls containing name should be collected.</param>
     Public Shared Function AsyncDispose(Of T)(ByVal ControlContainer As Control,
                                               Optional ByVal ContainsName As String = Nothing) As Boolean
 
         Return AsyncDisposeControls(ControlContainer.Controls.OfType(Of T).
                              Where(Function(ctrl) Not CType(ctrl, Object).IsDisposed), ContainsName)
 
     End Function
 
     ''' <summary>
     ''' Asynchronouslly Dispose all the Controls of the specified Type on the specified Control Collection.
     ''' </summary>
     ''' <param name="ControlCollection">Indicates the control collection where to find the controls.</param>
     ''' <param name="ContainsName">Indicates that only controls containing name should be collected.</param>
     Public Shared Function AsyncDispose(Of T)(ByVal ControlCollection As Control.ControlCollection,
                                               Optional ByVal ContainsName As String = Nothing) As Boolean
 
         Return AsyncDisposeControls(ControlCollection.OfType(Of T).
                              Where(Function(ctrl) Not CType(ctrl, Object).IsDisposed), ContainsName)
 
     End Function
 
 #End Region
 
 #End Region
 
 #Region " Toggle Enabled "
 
 #Region " Synchronous "
 
     ''' <summary>
     ''' Toggle the enabled state of an specific Control.
     ''' </summary>
     ''' <param name="Control">Indicates the Control to toggle their enabled state.</param>
     Public Shared Function ToggleEnabled(ByVal Control As Object) As Boolean
         Return _ToggleEnabled({Control})
     End Function
 
     ''' <summary>
     ''' Toggle the enabled state of multiple Controls at once.
     ''' </summary>
     ''' <param name="Controls">Indicates the Controls to toggle their enabled state.</param>
     Public Shared Function ToggleEnabled(ByVal Controls As IEnumerable(Of Object)) As Boolean
         Return _ToggleEnabled(Controls)
     End Function
 
     ''' <summary>
     ''' Toggle the enabled state of all the Controls of the specified Type on the active Formulary.
     ''' </summary>
     ''' <param name="ContainsName">Indicates that only controls containing name should be collected.</param>
     Public Shared Function ToggleEnabled(Of T)(Optional ByVal ContainsName As String = Nothing) As Boolean
 
         Return _ToggleEnabled(Form.ActiveForm.Controls.OfType(Of T), ContainsName)
 
     End Function
 
     ''' <summary>
     ''' Toggle the enabled state of all the Controls of the specified Type on the specified Control Container.
     ''' </summary>
     ''' <param name="ControlContainer">Indicates the control container where to find the controls.</param>
     ''' <param name="ContainsName">Indicates that only controls containing name should be collected.</param>
     Public Shared Function ToggleEnabled(Of T)(ByVal ControlContainer As Control,
                                                Optional ByVal ContainsName As String = Nothing) As Boolean
 
         Return _ToggleEnabled(ControlContainer.Controls.OfType(Of T), ContainsName)
 
     End Function
 
     ''' <summary>
     ''' Toggle the enabled state of all the Controls of the specified Type on the specified Control Collection.
     ''' </summary>
     ''' <param name="ControlCollection">Indicates the control collection where to find the controls.</param>
     ''' <param name="ContainsName">Indicates that only controls containing name should be collected.</param>
     Public Shared Function ToggleEnabled(Of T)(ByVal ControlCollection As Control.ControlCollection,
                                                Optional ByVal ContainsName As String = Nothing) As Boolean
 
         Return _ToggleEnabled(ControlCollection.OfType(Of T), ContainsName)
 
     End Function
 
 #End Region
 
 #Region " Asynchronous "
 
     ''' <summary>
     ''' Asynchronouslly Toggle the enabled state of an specific Control.
     ''' </summary>
     ''' <param name="Control">Indicates the Control to toggle their enabled state.</param>
     Public Shared Function AsyncToggleEnabled(ByVal Control As Object) As Boolean
         Return _AsyncToggleEnabled({Control})
     End Function
 
     ''' <summary>
     ''' Asynchronouslly Toggle the enabled state of multiple Controls at once.
     ''' </summary>
     ''' <param name="Controls">Indicates the Controls to toggle their enabled state.</param>
     Public Shared Function AsyncToggleEnabled(ByVal Controls As IEnumerable(Of Object)) As Boolean
         Return _AsyncToggleEnabled(Controls)
     End Function
 
     ''' <summary>
     ''' Asynchronouslly Toggle the enabled state of all the Controls of the specified Type on the active Formulary.
     ''' </summary>
     ''' <param name="ContainsName">Indicates that only controls containing name should be collected.</param>
     Public Shared Function AsyncToggleEnabled(Of T)(Optional ByVal ContainsName As String = Nothing) As Boolean
 
         Return _AsyncToggleEnabled(Form.ActiveForm.Controls.OfType(Of T), ContainsName)
 
     End Function
 
     ''' <summary>
     ''' Asynchronouslly Toggle the enabled state of all the Controls of the specified Type on the specified Control Container.
     ''' </summary>
     ''' <param name="ControlContainer">Indicates the control container where to find the controls.</param>
     ''' <param name="ContainsName">Indicates that only controls containing name should be collected.</param>
     Public Shared Function AsyncToggleEnabled(Of T)(ByVal ControlContainer As Control,
                                                     Optional ByVal ContainsName As String = Nothing) As Boolean
 
         Return _AsyncToggleEnabled(ControlContainer.Controls.OfType(Of T), ContainsName)
 
     End Function
 
     ''' <summary>
     ''' Asynchronouslly Toggle the enabled state of all the Controls of the specified Type on the specified Control Collection.
     ''' </summary>
     ''' <param name="ControlCollection">Indicates the control collection where to find the controls.</param>
     ''' <param name="ContainsName">Indicates that only controls containing name should be collected.</param>
     Public Shared Function AsyncToggleEnabled(Of T)(ByVal ControlCollection As Control.ControlCollection,
                                                     Optional ByVal ContainsName As String = Nothing) As Boolean
 
         Return _AsyncToggleEnabled(ControlCollection.OfType(Of T), ContainsName)
 
     End Function
 
 #End Region
 
 #End Region
 
 #Region " Toggle Visible "
 
 #Region " Synchronous "
 
     ''' <summary>
     ''' Toggle the visible state of an specific Control.
     ''' </summary>
     ''' <param name="Control">Indicates the Control to toggle their visible state.</param>
     Public Shared Function ToggleVisible(ByVal Control As Object) As Boolean
         Return _ToggleVisible({Control})
     End Function
 
     ''' <summary>
     ''' Toggle the visible state of multiple Controls at once.
     ''' </summary>
     ''' <param name="Controls">Indicates the Controls to toggle their visible state.</param>
     Public Shared Function ToggleVisible(ByVal Controls As IEnumerable(Of Object)) As Boolean
         Return _ToggleVisible(Controls)
     End Function
 
     ''' <summary>
     ''' Toggle the visible state of all the Controls of the specified Type on the active Formulary.
     ''' </summary>
     ''' <param name="ContainsName">Indicates that only controls containing name should be collected.</param>
     Public Shared Function ToggleVisible(Of T)(Optional ByVal ContainsName As String = Nothing) As Boolean
 
         Return _ToggleVisible(Form.ActiveForm.Controls.OfType(Of T), ContainsName)
 
     End Function
 
     ''' <summary>
     ''' Toggle the visible state of all the Controls of the specified Type on the specified Control Container.
     ''' </summary>
     ''' <param name="ControlContainer">Indicates the control container where to find the controls.</param>
     ''' <param name="ContainsName">Indicates that only controls containing name should be collected.</param>
     Public Shared Function ToggleVisible(Of T)(ByVal ControlContainer As Control,
                                                Optional ByVal ContainsName As String = Nothing) As Boolean
 
         Return _ToggleVisible(ControlContainer.Controls.OfType(Of T), ContainsName)
 
     End Function
 
     ''' <summary>
     ''' Toggle the visible state of all the Controls of the specified Type on the specified Control Collection.
     ''' </summary>
     ''' <param name="ControlCollection">Indicates the control collection where to find the controls.</param>
     ''' <param name="ContainsName">Indicates that only controls containing name should be collected.</param>
     Public Shared Function ToggleVisible(Of T)(ByVal ControlCollection As Control.ControlCollection,
                                                Optional ByVal ContainsName As String = Nothing) As Boolean
 
         Return _ToggleVisible(ControlCollection.OfType(Of T), ContainsName)
 
     End Function
 
 #End Region
 
 #Region " Asynchronous "
 
     ''' <summary>
     ''' Asynchronouslly Toggle the visible state of an specific Control.
     ''' </summary>
     ''' <param name="Control">Indicates the Control to toggle their visible state.</param>
     Public Shared Function AsyncToggleVisible(ByVal Control As Object) As Boolean
         Return _AsyncToggleVisible({Control})
     End Function
 
     ''' <summary>
     ''' Asynchronouslly Toggle the visible state of multiple Controls at once.
     ''' </summary>
     ''' <param name="Controls">Indicates the Controls to toggle their visible state.</param>
     Public Shared Function AsyncToggleVisible(ByVal Controls As IEnumerable(Of Object)) As Boolean
         Return _AsyncToggleVisible(Controls)
     End Function
 
     ''' <summary>
     ''' Asynchronouslly Toggle the visible state of all the Controls of the specified Type on the active Formulary.
     ''' </summary>
     ''' <param name="ContainsName">Indicates that only controls containing name should be collected.</param>
     Public Shared Function AsyncToggleVisible(Of T)(Optional ByVal ContainsName As String = Nothing) As Boolean
 
         Return _AsyncToggleVisible(Form.ActiveForm.Controls.OfType(Of T), ContainsName)
 
     End Function
 
     ''' <summary>
     ''' Asynchronouslly Toggle the visible state of all the Controls of the specified Type on the specified Control Container.
     ''' </summary>
     ''' <param name="ControlContainer">Indicates the control container where to find the controls.</param>
     ''' <param name="ContainsName">Indicates that only controls containing name should be collected.</param>
     Public Shared Function AsyncToggleVisible(Of T)(ByVal ControlContainer As Control,
                                                     Optional ByVal ContainsName As String = Nothing) As Boolean
 
         Return _AsyncToggleVisible(ControlContainer.Controls.OfType(Of T), ContainsName)
 
     End Function
 
     ''' <summary>
     ''' Asynchronouslly Toggle the visible state of all the Controls of the specified Type on the specified Control Collection.
     ''' </summary>
     ''' <param name="ControlCollection">Indicates the control collection where to find the controls.</param>
     ''' <param name="ContainsName">Indicates that only controls containing name should be collected.</param>
     Public Shared Function AsyncToggleVisible(Of T)(ByVal ControlCollection As Control.ControlCollection,
                                                     Optional ByVal ContainsName As String = Nothing) As Boolean
 
         Return _AsyncToggleVisible(ControlCollection.OfType(Of T), ContainsName)
 
     End Function
 
 #End Region
 
 #End Region
 
 #Region " Toggle Checked "
 
 #Region " Synchronous "
 
     ''' <summary>
     ''' Toggle the checked state of an specific Control.
     ''' </summary>
     ''' <param name="Control">Indicates the Control to toggle their checked state.</param>
     Public Shared Function ToggleChecked(ByVal Control As Object) As Boolean
         Return _ToggleChecked({Control})
     End Function
 
     ''' <summary>
     ''' Toggle the checked state of multiple Controls at once.
     ''' </summary>
     ''' <param name="Controls">Indicates the Controls to toggle their checked state.</param>
     Public Shared Function ToggleChecked(ByVal Controls As IEnumerable(Of Object)) As Boolean
         Return _ToggleChecked(Controls)
     End Function
 
     ''' <summary>
     ''' Toggle the checked state of all the Controls of the specified Type on the active Formulary.
     ''' </summary>
     ''' <param name="ContainsName">Indicates that only controls containing name should be collected.</param>
     Public Shared Function ToggleChecked(Of T)(Optional ByVal ContainsName As String = Nothing) As Boolean
 
         Return _ToggleChecked(Form.ActiveForm.Controls.OfType(Of T), ContainsName)
 
     End Function
 
     ''' <summary>
     ''' Toggle the checked state of all the Controls of the specified Type on the specified Control Container.
     ''' </summary>
     ''' <param name="ControlContainer">Indicates the control container where to find the controls.</param>
     ''' <param name="ContainsName">Indicates that only controls containing name should be collected.</param>
     Public Shared Function ToggleChecked(Of T)(ByVal ControlContainer As Control,
                                                Optional ByVal ContainsName As String = Nothing) As Boolean
 
         Return _ToggleChecked(ControlContainer.Controls.OfType(Of T), ContainsName)
 
     End Function
 
     ''' <summary>
     ''' Toggle the checked state of all the Controls of the specified Type on the specified Control Collection.
     ''' </summary>
     ''' <param name="ControlCollection">Indicates the control collection where to find the controls.</param>
     ''' <param name="ContainsName">Indicates that only controls containing name should be collected.</param>
     Public Shared Function ToggleChecked(Of T)(ByVal ControlCollection As Control.ControlCollection,
                                                Optional ByVal ContainsName As String = Nothing) As Boolean
 
         Return _ToggleChecked(ControlCollection.OfType(Of T), ContainsName)
 
     End Function
 
 #End Region
 
 #Region " Asynchronous "
 
     ''' <summary>
     ''' Asynchronouslly Toggle the checked state of an specific Control.
     ''' </summary>
     ''' <param name="Control">Indicates the Control to toggle their checked state.</param>
     Public Shared Function AsyncToggleChecked(ByVal Control As Object) As Boolean
         Return _AsyncToggleChecked({Control})
     End Function
 
     ''' <summary>
     ''' Asynchronouslly Toggle the checked state of multiple Controls at once.
     ''' </summary>
     ''' <param name="Controls">Indicates the Controls to toggle their checked state.</param>
     Public Shared Function AsyncToggleChecked(ByVal Controls As IEnumerable(Of Object)) As Boolean
         Return _AsyncToggleChecked(Controls)
     End Function
 
     ''' <summary>
     ''' Asynchronouslly Toggle the checked state of all the Controls of the specified Type on the active Formulary.
     ''' </summary>
     ''' <param name="ContainsName">Indicates that only controls containing name should be collected.</param>
     Public Shared Function AsyncToggleChecked(Of T)(Optional ByVal ContainsName As String = Nothing) As Boolean
 
         Return _AsyncToggleChecked(Form.ActiveForm.Controls.OfType(Of T), ContainsName)
 
     End Function
 
     ''' <summary>
     ''' Asynchronouslly Toggle the checked state of all the Controls of the specified Type on the specified Control Container.
     ''' </summary>
     ''' <param name="ControlContainer">Indicates the control container where to find the controls.</param>
     ''' <param name="ContainsName">Indicates that only controls containing name should be collected.</param>
     Public Shared Function AsyncToggleChecked(Of T)(ByVal ControlContainer As Control,
                                                     Optional ByVal ContainsName As String = Nothing) As Boolean
 
         Return _AsyncToggleChecked(ControlContainer.Controls.OfType(Of T), ContainsName)
 
     End Function
 
     ''' <summary>
     ''' Asynchronouslly Toggle the checked state of all the Controls of the specified Type on the specified Control Collection.
     ''' </summary>
     ''' <param name="ControlCollection">Indicates the control collection where to find the controls.</param>
     ''' <param name="ContainsName">Indicates that only controls containing name should be collected.</param>
     Public Shared Function AsyncToggleChecked(Of T)(ByVal ControlCollection As Control.ControlCollection,
                                                     Optional ByVal ContainsName As String = Nothing) As Boolean
 
         Return _AsyncToggleChecked(ControlCollection.OfType(Of T), ContainsName)
 
     End Function
 
 #End Region
 
 #End Region
 
 #Region " Perform Action "
 
 #Region " Synchronous "
-                                    ByVal Operation As [Delegate])
+
     ''' <summary>
     ''' Perform an operation on a specific Control.
     ''' </summary>
     ''' <param name="Control">Indicates the Control to perform the Action.</param>
     ''' <param name="Operation">Indicates the Action to perform on the control.</param>
     Public Shared Function PerformAction(ByVal Control As Object,
                                          ByVal Operation As [Delegate])
 
         Return PerformActionOnControls({Control}, Operation)
 
     End Function
-                                    ByVal Operation As [Delegate])
+
     ''' <summary>
     ''' Perform an operation on multiple Controls at once.
     ''' </summary>
     ''' <param name="Controls">Indicates the Controls to perform the Action.</param>
     ''' <param name="Operation">Indicates the Action to perform on the controls.</param>
     Public Shared Function PerformAction(ByVal Controls As IEnumerable(Of Object),
                                          ByVal Operation As [Delegate])
 
         Return PerformActionOnControls(Controls, Operation)
 
     End Function
 
     ''' <summary>
     ''' Perform an operation on all the Controls of the specified Type on the active Formulary.
     ''' </summary>
     ''' <param name="ContainsName">Indicates that only controls containing name should be collected.</param>
     Public Shared Function PerformAction(Of T)(ByVal Operation As [Delegate],
                                                Optional ByVal ContainsName As String = Nothing) As Boolean
 
         Return PerformActionOnControls(Form.ActiveForm.Controls.OfType(Of T), Operation, ContainsName)
 
     End Function
 
     ''' <summary>
     ''' Perform an operation on all the Controls of the specified Type on the specified Control Container.
     ''' </summary>
     ''' <param name="ControlContainer">Indicates the control container where to find the controls.</param>
     ''' <param name="Operation">Indicates the Action to perform on the controls.</param>
     ''' <param name="ContainsName">Indicates that only controls containing name should be collected.</param>
     Public Shared Function PerformAction(Of T)(ByVal ControlContainer As Control,
                                                ByVal Operation As [Delegate],
                                                Optional ByVal ContainsName As String = Nothing) As Boolean
 
         Return PerformActionOnControls(ControlContainer.Controls.OfType(Of T), Operation, ContainsName)
 
     End Function
 
     ''' <summary>
     ''' Perform an operation on all the Controls of the specified Type on the specified Control Collection.
     ''' </summary>
     ''' <param name="ControlCollection">Indicates the control collection where to find the controls.</param>
     ''' <param name="Operation">Indicates the Action to perform on the controls.</param>
     ''' <param name="ContainsName">Indicates that only controls containing name should be collected.</param>
     Public Shared Function PerformAction(Of T)(ByVal ControlCollection As Control.ControlCollection,
                                                ByVal Operation As [Delegate],
                                                Optional ByVal ContainsName As String = Nothing) As Boolean
 
 
         Return PerformActionOnControls(ControlCollection.OfType(Of T), Operation, ContainsName)
 
     End Function
 
     ''' <summary>
     ''' Perform an operation on all the Controls on the specified Control Collection.
     ''' </summary>
     ''' <param name="ControlCollection">Indicates the control collection where to find the controls.</param>
     ''' <param name="Operation">Indicates the Action to perform on the controls.</param>
     ''' <param name="ContainsName">Indicates that only controls containing name should be collected.</param>
     Public Shared Function PerformAction(ByVal ControlCollection As Control.ControlCollection,
                                          ByVal Operation As [Delegate],
                                          Optional ByVal ContainsName As String = Nothing) As Boolean
 
 
         Return PerformActionOnControls((From c As Object In ControlCollection), Operation, ContainsName)
 
     End Function
 
 #End Region
 
 #Region " Asynchronous "
 
     ''' <summary>
     ''' Perform an asynchronous operation on a specific Control.
     ''' </summary>
     ''' <param name="Control">Indicates the Control to perform the Action.</param>
     ''' <param name="Operation">Indicates the Action to perform on the control.</param>
     Public Shared Function AsyncPerformAction(ByVal Control As Object,
                                          ByVal Operation As [Delegate])
 
         Return AsyncPerformActionOnControls({Control}, Operation)
 
     End Function
 
     ''' <summary>
     ''' Perform an asynchronous operation on multiple Controls at once.
     ''' </summary>
     ''' <param name="Controls">Indicates the Controls to perform the Action.</param>
     ''' <param name="Operation">Indicates the Action to perform on the controls.</param>
     Public Shared Function AsyncPerformAction(ByVal Controls As IEnumerable(Of Object),
                                               ByVal Operation As [Delegate])
 
         Return AsyncPerformActionOnControls(Controls, Operation)
 
     End Function
 
     ''' <summary>
     ''' Perform an asynchronous operation on all the Controls of the specified Type on the active Formulary.
     ''' </summary>
     ''' <param name="ContainsName">Indicates that only controls containing name should be collected.</param>
     Public Shared Function AsyncPerformAction(Of T)(ByVal Operation As [Delegate],
                                                     Optional ByVal ContainsName As String = Nothing) As Boolean
 
         Return AsyncPerformActionOnControls(Form.ActiveForm.Controls.OfType(Of T), Operation, ContainsName)
 
     End Function
 
     ''' <summary>
     ''' Perform an asynchronous operation on all the Controls of the specified Type on the specified Control Container.
     ''' </summary>
     ''' <param name="ControlContainer">Indicates the control container where to find the controls.</param>
     ''' <param name="Operation">Indicates the Action to perform on the controls.</param>
     ''' <param name="ContainsName">Indicates that only controls containing name should be collected.</param>
     Public Shared Function AsyncPerformAction(Of T)(ByVal ControlContainer As Control,
                                                     ByVal Operation As [Delegate],
                                                     Optional ByVal ContainsName As String = Nothing) As Boolean
 
 
         Return AsyncPerformActionOnControls(ControlContainer.Controls.OfType(Of T), Operation, ContainsName)
 
     End Function
 
     ''' <summary>
     ''' Perform an asynchronous operation on all the Controls of the specified Type on the specified Control Collection.
     ''' </summary>
     ''' <param name="ControlCollection">Indicates the control collection where to find the controls.</param>
     ''' <param name="Operation">Indicates the Action to perform on the controls.</param>
     ''' <param name="ContainsName">Indicates that only controls containing name should be collected.</param>
     Public Shared Function AsyncPerformAction(Of T)(ByVal ControlCollection As Control.ControlCollection,
                                                     ByVal Operation As [Delegate],
                                                     Optional ByVal ContainsName As String = Nothing) As Boolean
 
         Return AsyncPerformActionOnControls(ControlCollection.OfType(Of T), Operation, ContainsName)
 
     End Function
 
 #End Region
 
 #End Region
 
 #End Region
 
 #Region " Private Methods "
 
 #Region " Synchronous "
 
     ''' <summary>
     ''' Enable or disable controls.
     ''' </summary>
     Private Shared Function EnableOrDisable(ByVal Controls As IEnumerable(Of Object),
                                             ByVal Enabled As Boolean,
                                             Optional ByVal ContainsName As String = Nothing) As Boolean
 
         If ContainsName IsNot Nothing Then
             Controls = Controls.Where(Function(ctrl) ctrl.name.contains(ContainsName))
             If Controls.Count = 0 Then Return False
         End If
 
         For Each [control] As Object In Controls
 
             If [control].InvokeRequired Then
                 [control].Invoke(Sub() [control].Enabled = Enabled)
             Else
                 [control].Enabled = Enabled
             End If
 
         Next [control]
 
         Return True
 
     End Function
 
     ''' <summary>
     ''' Show or hide controls.
     ''' </summary>
     Private Shared Function ShowOrHide(ByVal Controls As IEnumerable(Of Object),
                                        ByVal Visible As Boolean,
                                        Optional ByVal ContainsName As String = Nothing) As Boolean
 
         If ContainsName IsNot Nothing Then
             Controls = Controls.Where(Function(ctrl) ctrl.name.contains(ContainsName))
             If Controls.Count = 0 Then Return False
         End If
 
         For Each [control] As Object In Controls
 
             If [control].InvokeRequired Then
                 [control].Invoke(Sub() [control].Visible = Visible)
             Else
                 [control].Visible = Visible
             End If
 
         Next [control]
 
         Return True
 
     End Function
 
     ''' <summary>
     ''' Check or uncheck controls.
     ''' </summary>
     Private Shared Function CheckOrUncheck(ByVal Controls As IEnumerable(Of Object),
                                            ByVal Checked As Boolean,
                                            Optional ByVal ContainsName As String = Nothing) As Boolean
 
         If ContainsName IsNot Nothing Then
             Controls = Controls.Where(Function(ctrl) ctrl.name.contains(ContainsName))
             If Controls.Count = 0 Then Return False
         End If
 
         For Each [control] As Object In Controls
 
             If [control].InvokeRequired Then
                 [control].Invoke(Sub() [control].Checked = Checked)
             Else
                 [control].Checked = Checked
             End If
 
         Next [control]
 
         Return True
 
     End Function
 
     ''' <summary>
     ''' Toggle the Enabled state of controls.
     ''' </summary>
     Private Shared Function _ToggleEnabled(ByVal Controls As IEnumerable(Of Object),
                                            Optional ByVal ContainsName As String = Nothing) As Boolean
 
         If ContainsName IsNot Nothing Then
             Controls = Controls.Where(Function(ctrl) ctrl.name.contains(ContainsName))
             If Controls.Count = 0 Then Return False
         End If
 
         For Each [control] As Object In Controls
 
             If [control].InvokeRequired Then
                 [control].Invoke(Sub() [control].Enabled = Not [control].Enabled)
             Else
                 [control].Enabled = Not [control].Enabled
             End If
 
         Next [control]
 
         Return True
 
     End Function
 
     ''' <summary>
     ''' Toggle the Visible state of controls.
     ''' </summary>
     Private Shared Function _ToggleVisible(ByVal Controls As IEnumerable(Of Object),
                                            Optional ByVal ContainsName As String = Nothing) As Boolean
 
         If ContainsName IsNot Nothing Then
             Controls = Controls.Where(Function(ctrl) ctrl.name.contains(ContainsName))
             If Controls.Count = 0 Then Return False
         End If
 
         For Each [control] As Object In Controls
 
             If [control].InvokeRequired Then
                 [control].Invoke(Sub() [control].Visible = Not [control].Visible)
             Else
                 [control].Visible = Not [control].Visible
             End If
 
         Next [control]
 
         Return True
 
     End Function
 
     ''' <summary>
     ''' Toggle the Checked state of controls.
     ''' </summary>
     Private Shared Function _ToggleChecked(ByVal Controls As IEnumerable(Of Object),
                                            Optional ByVal ContainsName As String = Nothing) As Boolean
 
         If ContainsName IsNot Nothing Then
             Controls = Controls.Where(Function(ctrl) ctrl.name.contains(ContainsName))
             If Controls.Count = 0 Then Return False
         End If
 
         For Each [control] As Object In Controls
 
             If [control].InvokeRequired Then
                 [control].Invoke(Sub() [control].Checked = Not [control].Checked)
             Else
                 [control].Checked = Not [control].Checked
             End If
 
         Next [control]
 
         Return True
 
     End Function
 
     ''' <summary>
     ''' Dispose controls.
     ''' </summary>
     Private Shared Function DisposeControls(ByVal Controls As IEnumerable(Of Object),
                                             Optional ByVal ContainsName As String = Nothing) As Boolean
 
         If ContainsName IsNot Nothing Then
             Controls = Controls.Where(Function(ctrl) ctrl.name.contains(ContainsName))
             If Controls.Count = 0 Then Return False
         End If
 
         For Each [control] As Object In Controls
 
             If [control].InvokeRequired Then
                 [control].Invoke(Sub() [control].Dispose())
             Else
                 [control].Dispose()
             End If
 
         Next [control]
 
         Return True
 
     End Function
 
     ''' <summary>
     ''' Perform an operation on Controls.
     ''' </summary>
     Private Shared Function PerformActionOnControls(ByVal Controls As IEnumerable(Of Object),
                                                     ByVal Operation As [Delegate],
                                                     Optional ByVal ContainsName As String = Nothing) As Boolean
 
         If ContainsName IsNot Nothing Then
             Controls = Controls.Where(Function(ctrl) ctrl.name.contains(ContainsName))
             If Controls.Count = 0 Then Return False
         End If
 
         For Each [Control] As Object In Controls
 
             If [Control].InvokeRequired Then
                 [Control].Invoke(Operation, New Object() {[Control]})
             Else
                 Operation.Method.Invoke(Operation, New Object() {[Control]})
             End If
 
         Next [Control]
 
         Return True
 
     End Function
 
 #End Region
 
 #Region " Asynchronous "
 
     ''' <summary>
     ''' Enable or disable controls asynchronouslly.
     ''' </summary>
     Private Shared Function AsyncEnableOrDisable(ByVal Controls As IEnumerable(Of Object),
                                                  ByVal Enabled As Boolean,
                                                  Optional ByVal ContainsName As String = Nothing)
 
         If ContainsName IsNot Nothing Then
             Controls = Controls.Where(Function(ctrl) ctrl.name.contains(ContainsName))
             If Controls.Count = 0 Then Return False
         End If
 
         For Each [control] As Object In Controls
 
             [control].BeginInvoke(Sub() [control].Enabled = Enabled)
 
         Next [control]
 
         Return True
 
     End Function
 
     ''' <summary>
     ''' Show or hide controls asynchronouslly.
     ''' </summary>
     Private Shared Function AsyncShowOrHide(ByVal Controls As IEnumerable(Of Object),
                                             ByVal Visible As Boolean,
                                             Optional ByVal ContainsName As String = Nothing)
 
         If ContainsName IsNot Nothing Then
             Controls = Controls.Where(Function(ctrl) ctrl.name.contains(ContainsName))
             If Controls.Count = 0 Then Return False
         End If
 
         For Each [control] As Object In Controls
 
             [control].BeginInvoke(Sub() [control].Visible = Visible)
 
         Next [control]
 
         Return True
 
     End Function
 
     ''' <summary>
     ''' Check or uncheck controls asynchronouslly.
     ''' </summary>
     Private Shared Function AsyncCheckOrUncheck(ByVal Controls As IEnumerable(Of Object),
                                                 ByVal Checked As Boolean,
                                                 Optional ByVal ContainsName As String = Nothing)
 
         If ContainsName IsNot Nothing Then
             Controls = Controls.Where(Function(ctrl) ctrl.name.contains(ContainsName))
             If Controls.Count = 0 Then Return False
         End If
 
         For Each [control] As Object In Controls
 
             [control].BeginInvoke(Sub() [control].Checked = Checked)
 
         Next [control]
 
         Return True
 
     End Function
 
     ''' <summary>
     ''' Toggle the Enabled state of controls asynchronouslly.
     ''' </summary>
     Private Shared Function _AsyncToggleEnabled(ByVal Controls As IEnumerable(Of Object),
                                                 Optional ByVal ContainsName As String = Nothing)
 
         If ContainsName IsNot Nothing Then
             Controls = Controls.Where(Function(ctrl) ctrl.name.contains(ContainsName))
             If Controls.Count = 0 Then Return False
         End If
 
         For Each [control] As Object In Controls
 
             [control].BeginInvoke(Sub() [control].Enabled = Not [control].Enabled)
 
         Next [control]
 
         Return True
 
     End Function
 
     ''' <summary>
     ''' Toggle the Visible state of controls asynchronouslly.
     ''' </summary>
     Private Shared Function _AsyncToggleVisible(ByVal Controls As IEnumerable(Of Object),
                                                 Optional ByVal ContainsName As String = Nothing)
 
         If ContainsName IsNot Nothing Then
             Controls = Controls.Where(Function(ctrl) ctrl.name.contains(ContainsName))
             If Controls.Count = 0 Then Return False
         End If
 
         For Each [control] As Object In Controls
 
             [control].BeginInvoke(Sub() [control].Visible = Not [control].Visible)
 
         Next [control]
 
         Return True
 
     End Function
 
     ''' <summary>
     ''' Toggle the Checked state of controls asynchronouslly.
     ''' </summary>
     Private Shared Function _AsyncToggleChecked(ByVal Controls As IEnumerable(Of Object),
                                                 Optional ByVal ContainsName As String = Nothing)
 
         If ContainsName IsNot Nothing Then
             Controls = Controls.Where(Function(ctrl) ctrl.name.contains(ContainsName))
             If Controls.Count = 0 Then Return False
         End If
 
         For Each [control] As Object In Controls
 
             [control].BeginInvoke(Sub() [control].Checked = Not [control].Checked)
 
         Next [control]
 
         Return True
 
     End Function
 
     ''' <summary>
     ''' Dispose controls asynchronouslly.
     ''' </summary>
     Private Shared Function AsyncDisposeControls(ByVal Controls As IEnumerable(Of Object),
                                                  Optional ByVal ContainsName As String = Nothing)
 
         If ContainsName IsNot Nothing Then
             Controls = Controls.Where(Function(ctrl) ctrl.name.contains(ContainsName))
             If Controls.Count = 0 Then Return False
         End If
 
         For Each [control] As Object In Controls
 
             [control].BeginInvoke(Sub() [control].Dispose())
 
         Next [control]
 
         Return True
 
     End Function
 
     ''' <summary>
     ''' Perform an asynchronous operation on Controls.
     ''' </summary>
     Private Shared Function AsyncPerformActionOnControls(ByVal Controls As IEnumerable(Of Object),
                                                          ByVal Operation As [Delegate],
                                                          Optional ByVal ContainsName As String = Nothing)
 
         If ContainsName IsNot Nothing Then
             Controls = Controls.Where(Function(ctrl) ctrl.name.contains(ContainsName))
             If Controls.Count = 0 Then Return False
         End If
 
         For Each [Control] As Object In Controls
 
             If [Control].InvokeRequired Then
                 [Control].BeginInvoke(Operation, New Object() {[Control]})
             Else
                 [Control].BeginInvoke(Operation.Method.Invoke(Operation, New Object() {[Control]}))
             End If
 
         Next [Control]
 
         Return True
 
     End Function
 
 #End Region
 
 #End Region
 
 End Class
 
 #End Region