Private Sub MessageDisplayByValue1_TextChanged(sender As Object, e As EventArgs) Handles MessageDisplayByValue1.TextChanged MessageDisplayByValue1.HighlightColor = Color.Yellow End Sub
Private Sub MessageDisplayByValue1_ValueChanged(sender As Object, e As AdvancedHMI.Controls.ValueChangedEventArgs) Handles MessageDisplayByValue1.ValueChanged If MessageDisplayByValue1.Value = 1 Then MessageDisplayByValue1.BackColor = Color.Blue End If If MessageDisplayByValue1.Value = 2 Then MessageDisplayByValue1.BackColor = Color.Yellow End If End Sub