IntegralUI TreeListView User Guide - Lidor Systems

End Sub
Private Sub CreateSubItems(ByVal parentNode As TreeListViewNode, ByVal sufix As
String)
' Create subitems for specified node
Dim subItem As TreeListViewSubItem = Nothing
For j As Integer = 0 To Me.treeListView1.Columns.Count - 1
subItem = New TreeListViewSubItem()
Select Case Me.treeListView1.Columns(j).ContentType
Case ColumnContentType.Image
subItem.Image = imgCountries.Images(nodeIndex Mod 9)
Exit Select
Case ColumnContentType.Control
Dim pBar As New ProgressBar()
pBar.Size = New Size(100, 16)
progressValue = RandomValue(progressValue)
pBar.Value = progressValue
subItem.Control = pBar
Exit Select
Case Else
subItem.Text = ("Item " & sufix) + j.ToString()
Exit Select
End Select
. . .
End Sub
Private Function RandomValue(ByVal value As Integer) As Integer
Dim gen As New Random()
Dim range As Integer = (100 - value)
Return gen.[Next](range)
End Function
32