Class SearchClientPageV

   Private Sub Grid_Loaded(sender As Object, e As RoutedEventArgs)
      Dim visibleRows As Integer = 0
      Dim i As Integer = 0
      If (ClientDataGrid.Height - ClientDataGrid.ColumnHeaderHeight) Mod ClientDataGrid.RowHeight <> 0 Then
         For Each DataGridItem In ClientDataGrid.ItemContainerGenerator.Items ' ContainerFromIndex(i)
            If IsUserVisible(CType(ClientDataGrid.ItemContainerGenerator.ContainerFromIndex(i), FrameworkElement), ClientDataGrid) Then
               visibleRows += 1
            Else
               Exit For
            End If
            i = i + 1
         Next
         'If (ClientDataGrid.Height < ClientDataGrid.ColumnHeaderHeight + ClientDataGrid.RowHeight * (visibleRows - 1)) Then
         ClientDataGrid.Height = ClientDataGrid.ColumnHeaderHeight + ClientDataGrid.RowHeight * (visibleRows - 1)
         'End If
      End If
   End Sub

   Private Function IsUserVisible(element As FrameworkElement, container As FrameworkElement) As Boolean
      If Not IsNothing(element) Then
         If Not element.IsVisible Then
            Return False
         End If
         Dim bounds As Rect = element.TransformToAncestor(container).TransformBounds(New Rect(0.0, 0.0, element.ActualWidth, element.ActualHeight))
         Dim Rect = New Rect(0.0, 0.0, container.ActualWidth, container.ActualHeight)
         Return Rect.Contains(bounds.TopLeft) Or Rect.Contains(bounds.BottomRight)
      End If
      Return False
   End Function

End Class