Imports Infragistics.Win.UltraWinSchedule ... Private Sub btnShow_Click(ByVal sender As System.Object, _ ByVal e As System.EventArgs) Handles btnShow.Click Dim appointment As Appointment appointment = Me.UltraCalendarInfo1.Appointments.Add( _ DateTime.Today, "Appointment Subject") Me.UltraCalendarInfo1.DisplayAppointmentDialog(appointment) End Sub