Private Sub SetFirstMonthToCurrentMonth()
' Get the current month
Dim month As Infragistics.Win.UltraWinSchedule.Month
month = Me.ultraMonthViewMulti1.CalendarInfo.GetMonth(DateTime.Today)
' Set the control's FirstMonth property to the current month
Me.ultraMonthViewMulti1.FirstMonth = month
End Sub