            End With
            With itmX.SubItems(2)
               .Caption = CLng(Rnd * 1024 * 1024)
               .ShowInTile = True
            End With
            If (i = 1) Then
               ' test font/colours:
               itmX.BackColor = RGB(98, 176, 255)
               itmX.ForeColor = RGB(240, 248, 255)
               Dim sFnt As New StdFont
               sFnt.Name = "Tahoma"
               sFnt.Size = 10
               sFnt.Bold = True
               itmX.Font = sFnt
            End If