Private Sub GridEditorInitializedEventHandler(sender As Object, e As GridViewCellEventArgs)
    Dim dtEditor As RadDateTimeEditor = TryCast(e.ActiveEditor, RadDateTimeEditor)

    If dtEditor IsNot Nothing Then
        Dim element As RadDateTimeEditorElement = TryCast(dtEditor.EditorElement, RadDateTimeEditorElement)
        element.CalendarSize = New Size(300, 300)
    End If

    Dim spanEditor As GridTimeSpanPickerEditor = TryCast(e.ActiveEditor, GridTimeSpanPickerEditor)

    If spanEditor IsNot Nothing Then
        Dim element As RadTimeSpanPickerElement = TryCast(spanEditor.EditorElement, RadTimeSpanPickerElement)
        element.PopupMinSize = New Size(300, 300)
    End If
End Sub