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