Private Sub btnShowAppointmentDialog_Click(ByVal sender As System.Object, _ ByVal e As System.EventArgs) Handles btnShowAppointmentDialog.Click Me.UltraCalendarInfo1.DisplayAppointmentDialog( _ Me.UltraCalendarInfo1.ActiveDay.Date, _ Me.UltraCalendarInfo1.ActiveDay.Date, False) End Sub