Imports Infragistics.Win
Imports Infragistics.Win.UltraWinSchedule
Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
' Get the total number of columns, which equals the number
' of owners in the associated CalendarInfo's 'VisibleOwners'
' collection, multiplied by the number of selected days.
Dim totalColumnCount As Int32 = Me.UltraDayView1.LogicalColumnCount
' Get the total number of columns that are currently in view
Dim inViewColumnCount As Int32 = Me.UltraDayView1.InViewColumnCount
' Calculate the percentage of columns that are in view
Dim percentVisible As Double = inViewColumnCount / totalColumnCount
Debug.WriteLine(percentVisible.ToString("p") + " of the viewable columns are currently in view.")
End Sub