Public Event FlipFlopChanged(ByVal Data As Object)
 
    Delegate Sub FlipFlopChanged_DelegateObject(ByVal Data As Object)
 
    Private Sub Sub_FlipFlopChanged(ByVal Data As Object) Handles _
      Me.FlipFlopChanged
        If Me.InvokeRequired Then
            Dim dd As New FlipFlopChanged_DelegateObject(AddressOf _
              Sub_FlipFlopChanged)
            Me.Invoke(dd, New Object() {Data})
        Else
            Try
 
            Catch ex As Exception
 
            End Try
        End If
    End Sub