' Usage:
    ' InvokeControl(RichTextBox1, Sub(x) x.AppendText("a"))
 
#Region " Invoke Controls "
    Public Sub InvokeControl(Of T As Control)(ByVal Control As T, ByVal Action As Action(Of T))
        If Control.InvokeRequired Then
            Control.Invoke(New Action(Of T, Action(Of T))(AddressOf InvokeControl), New Object() {Control, Action})
        Else
            Action(Control)
        End If
    End Sub
#End Region

'Declaration
Public Delegate Sub Action(Of In T1, In T2, In T3, In T4, In T5, In T6, In T7, In T8, In T9, In T10, In T11, In T12, In T13, In T14, In T15, In T16) ( _
	arg1 As T1, _
	arg2 As T2, _
	arg3 As T3, _
	arg4 As T4, _
	arg5 As T5, _
	arg6 As T6, _
	arg7 As T7, _
	arg8 As T8, _
	arg9 As T9, _
	arg10 As T10, _
	arg11 As T11, _
	arg12 As T12, _
	arg13 As T13, _
	arg14 As T14, _
	arg15 As T15, _
	arg16 As T16 _
)

    Imports System
    Namespace DelegateTest
    Public Delegate Sub TestDelegate(ByVal message As String)
 
    Class Program
    Public Shared Sub Display(ByVal message As String)
    Console.WriteLine("")
    Console.WriteLine("The string entered is : " + message)
    End Sub
 
    Shared Sub Main(ByVal args As String())
    '-- Instantiate the delegate
    Dim t As New TestDelegate(AddressOf Display)
 
    '-- Input some text
    Console.WriteLine("Please enter a string:")
    Dim message As String = Console.ReadLine()
 
    '-- Invoke the delegate
    t(message)
    Console.ReadLine()
    End Sub
    End Class
    End Namespace

    ' Usage:
    ' InvokeControl(RichTextBox1, Sub(x) x.AppendText("a"))
 
#Region " Invoke Controls "
    Public Sub InvokeControl(Of T As Control)(ByVal Control As T, ByVal Action As Action(Of T))
        If Control.InvokeRequired Then
            Control.Invoke(New Action(Of T, Action(Of T))(AddressOf InvokeControl), New Object() {Control, Action})
        Else
            Action(Control)
        End If
    End Sub
#End Region

 
Delegate Sub SetValue(ByVal value As Single, ByVal status As String)
 
  Public Sub SetValueObjects1(ByVal value As Single, ByVal status As String)
        If KryptonProgressBar2.InvokeRequired Then
            Dim d As New SetValue(AddressOf SetValueObjects1)
            Me.Invoke(d, New Object() {value, status})
        Else
            KryptonLabel42.Text = ("(" & Math.Round(value, 1) & ")%")
            KryptonProgressBar2.Value = value
        End If
    End Sub