Dim remAppointment = New Appointment() With { _ Key .Id = "t1", _ Key .OwningCalendarId = "cal1", _ Key .OwningResourceId = "own1", _ Key .Start = New DateTime(2010, 9, 9).AddHours(9).AddMinutes(12), _ Key .[End] = New DateTime(2010, 9, 9).AddHours(9).AddMinutes(42), _ Key .Subject = "Appointment 1", _ Key .Description = "My first Appointment in XAML", _ Key .ReminderInterval = New TimeSpan(0, 0, 30), _ Key .ReminderEnabled = True, _ Key .Reminder = New Reminder() With { _ Key .IsSnoozed = False, _ Key .SnoozeInterval = New TimeSpan(0, 0, 40), _ Key .Text = "My Reminder" _ } _ }