Private Delegate Function fillDelegate(ByVal dt As DataTable) As Integer

            Dim d As New fillDelegate(AddressOf _daDiag.Fill())
            Dim iar As IAsyncResult = d.BeginInvoke(_dtDiag, Nothing, Nothing)
            While Not iar.IsCompleted And Not isCancel
                Application.DoEvents()
                System.Threading.Thread.Sleep(50)
            End While
 
            If isCancelThen Return
            d.EndInvoke(iar)