or
Private Sub RadAutoCompleteBox1_TextChanged(sender As System.Object, e As System.EventArgs) Handles RadAutoCompleteBox1.TextChanged If Me.RadAutoCompleteBox1.CaretIndex > 0 Then ' Obtain current editing text Dim pos As Integer = Math.Max(0, Me.RadAutoCompleteBox1.Text.LastIndexOf(";", Me.RadAutoCompleteBox1.CaretIndex) + 1) Me.TextBox1.Text = Me.RadAutoCompleteBox1.Text.Substring(pos, Me.RadAutoCompleteBox1.CaretIndex - pos).Trim() End IfEnd Subthis.radTimePicker1.CloseButtonText = "Fechar"; this.radTimePicker1.TimePickerElement.HourHeaderText = "Horas"; this.radTimePicker1.TimePickerElement.MinutesHeaderText = "Minutos";