Private Sub DataSubscriber21_DataChanged(sender As Object, e As Drivers.Common.PlcComEventArgs) Handles DataSubscriber21.DataChanged Select Case e.PlcAddress Case "400001" Integer1.Text = e.Values(0) Hex1.Text = Conversion.Hex(e.Values(0)) Case "400002" Integer2.Text = e.Values(0) Hex2.Text = Conversion.Hex(e.Values(0)) Case "400003" Integer3.Text = e.Values(0) Hex3.Text = Conversion.Hex(e.Values(0)) Case "400004" Integer4.Text = e.Values(0) Hex4.Text = Conversion.Hex(e.Values(0)) End Select