Delegates Callback With Threading
Private Delegate Sub AddValueToList(Value As Integer) Private Sub Button1_Click(sender As Object, e As EventArgs) Handles Button1.Click Dim Thrd As New Threading.Thread(AddressOf StartProcess) Thrd.Start() End Sub Private Sub StartProcess() Dim RP As New RunningProcess Dim X As Boolean = RP.SomeLongRunningProcessWithCallBack(AddressOf GetCallBackDelegateValue) End Sub Private Sub GetCallBackDelegateValue(Value As Integer) ListBox1.Invoke(New AddValueToList(AddressOf AddValueToListBoxControl), Value) End Sub Public Class RunningProcess Public Delegate Sub CallBackDelegate(Value As Integer) Public Function SomeLongRunningProcessWithCallBack(Current As CallBackDelegate) ...