If e.Exception Is Nothing Then <no error; you can use e.Vtq right away> Else <an error - the details are in e.Exception> End If

Private Sub Da_Client_ItemChanged(sender As Object, e As EasyDAItemChangedEventArgs) Handles Da_Client.ItemChanged Dim ctl As Control = TryCast(e.Arguments.State, Control) Dim stp As New Stopwatch Try Debug.Print("ITEM CHANGED Da_Client ctl name: " & ctl.Name) stp.Start() If e.Vtq IsNot Nothing Then If e.Exception Is Nothing Then ctl.Tag = e.Vtq.DisplayValue ctl.Text = ctl.Tag Debug.Print("ctl.tag :" & ctl.Tag.ToString & " ctl.name: " & ctl.Name) If TypeOf ctl Is LedLight Then sw.Stop() LblTime.Text = sw.ElapsedMilliseconds.ToString If ctl Is BtnStart Then Select Case LblStart.Tag Case "0" Or False LblStart.BackColor = Color.Red LblStart.Text = "Waiting.... " Case "1" Or True If Not Bgw_SendSetupData.IsBusy Then Bgw_SendSetupData.RunWorkerAsync() End If Case Else LblStart.BackColor = Color.Orange End Select ElseIf ctl Is BtnSend Then Select Case LblStop.Tag Case "0" Or False LblStop.BackColor = Color.FromArgb(192, 0, 0) Case "1" Or True LblStop.BackColor = Color.Green Case Else LblStop.BackColor = Color.Orange End Select ctl.Refresh() Else ctl.Text = ctl.Tag End If End If ElseIf e.Exception IsNot Nothing Then Debug.Print("Error.") End If End If stp.Stop() Debug.Print(stp.ElapsedMilliseconds) Catch ex As Exception Debug.Print("Error with FrmMain ItemChange " & ex.ToString & vbCrLf & " Ctl problem? " & ctl.Name & " VAL? " & ctl.Tag.ToString & ".") End Try End Sub