Imports Infragistics.Win.UltraWinSchedule ... Private Sub ShowWeekendsasFullDays_Load(ByVal sender As System.Object, _ ByVal e As System.EventArgs) Handles MyBase.Load Me.UltraMonthViewSingle1.WeekendDisplayStyle = WeekendDisplayStyleEnum.Full End Sub