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