Imports Infragistics.Win
Imports Infragistics.Win.UltraWinSchedule
Imports System.IO
Imports System.Globalization
Private Sub button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles button1.Click
' AppointmentDialog を表示します
Me.ultraCalendarInfo1.DisplayAppointmentDialog(DateTime.Today.Date.AddHours(9.0F), DateTime.Today.Date.AddHours(9.5F), False)
End Sub