Imports Infragistics.Win.UltraWinTree
Private Sub ultraTree1_Scroll(ByVal sender As Object, ByVal e As Infragistics.Win.UltraWinTree.TreeScrollEventArgs) Handles ultraTree1.Scroll
Dim sb As New System.Text.StringBuilder()
sb.Append("The tree has scrolled. ScrollbarType :")
sb.Append(e.ScrollBarType)
sb.Append(" ScrollEventType: ")
sb.Append(e.ScrollEventArgs.Type)
sb.Append(" new value: ")
sb.Append(e.ScrollEventArgs.NewValue)
Debug.WriteLine(sb.ToString())
End Sub