public Appointment Appointment { get; }

Public ReadOnly Property Appointment As Appointment

System.Threading.Thread.CurrentThread.CurrentUICulture = new System.Globalization.CultureInfo("de");
SchedulerStringIdExample.OutlookAppointmentForm form = new SchedulerStringIdExample.OutlookAppointmentForm(scheduler, e.Appointment, e.OpenRecurrenceForm);
try {

private void schedulerControl1_EditAppointmentFormShowing(object sender, AppointmentFormEventArgs e) {
    MyAppointmentForm form = new MyAppointmentForm(sender as SchedulerControl, e.Appointment, e.OpenRecurrenceForm);
    try {

DevExpress.XtraScheduler.SchedulerControl scheduler = ((DevExpress.XtraScheduler.SchedulerControl)(sender));
SchedulerDbExample.CustomAppointmentForm form = new SchedulerDbExample.CustomAppointmentForm(scheduler, e.Appointment, e.OpenRecurrenceForm);
try {

SchedulerControl scheduler = sender as SchedulerControl;
Appointment apt = e.Appointment;
bool openRecurrenceForm = apt.IsRecurring && scheduler.DataStorage.Appointments.IsNewAppointment(apt);

{
    Appointment apt = e.Appointment;
    // Required to open the recurrence form via context menu.

Dim form As SchedulerLocalizationExample_VB.OutlookAppointmentForm = New SchedulerLocalizationExample_VB.OutlookAppointmentForm(scheduler, e.Appointment, e.OpenRecurrenceForm)
Try

Private Sub schedulerControl1_EditAppointmentFormShowing(ByVal sender As Object, ByVal e As AppointmentFormEventArgs) Handles schedulerControl1.EditAppointmentFormShowing
    Dim form As New MyAppointmentForm(TryCast(sender, SchedulerControl), e.Appointment, e.OpenRecurrenceForm)
    Try

Dim scheduler As DevExpress.XtraScheduler.SchedulerControl = (DirectCast(sender, DevExpress.XtraScheduler.SchedulerControl))
Dim form As New SchedulerDbExample.CustomAppointmentForm(scheduler, e.Appointment, e.OpenRecurrenceForm)
Try

Dim scheduler As SchedulerControl = TryCast(sender, SchedulerControl)
Dim apt As Appointment = e.Appointment
Dim openRecurrenceForm As Boolean = apt.IsRecurring AndAlso scheduler.DataStorage.Appointments.IsNewAppointment(apt)

Private Sub schedulerControl1_EditAppointmentFormShowing(ByVal sender As Object, ByVal e As AppointmentFormEventArgs) Handles schedulerControl1.EditAppointmentFormShowing
    Dim apt As Appointment = e.Appointment
    ' Required to open the recurrence form via context menu.