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"; 

Private Sub rs_DragOver(sender As Object, e As System.Windows.Forms.DragEventArgs) Handles rs.DragOver Try Dim p As Point = rs.PointToClient(New Point(e.X, e.Y)) Dim t As DayViewAppointmentsTable = TryCast(rs.SchedulerElement.ViewElement, SchedulerDayViewElement).DataAreaElement.Table Dim sce As SchedulerCellElement = SchedulerUIHelper.GetCellAtPoint(p, t.Children)Catch ex As Exception End Try
End Sub