Imports Infragistics.Win.UltraWinSchedule ... Private Sub UltraButton1_Click(ByVal sender As Object, _ ByVal e As System.EventArgs) Handles UltraButton1.Click ' DroppedDown プロパティを設定するか Me.UltraCalendarCombo1.DroppedDown = True ' PerformAction メソッドを使用します。 Me.UltraCalendarCombo1.PerformAction(CalendarCombo.CalendarComboAction.DropDown) End Sub