Private Sub Form_Load()
Dim i, x, o As Long
Dim lngBackColor(4) As Long
 
lngBackColor(0) = &HFFFFC0
lngBackColor(1) = &HFF00&
lngBackColor(2) = &HFFFF&
lngBackColor(3) = &HFF&
 
frmMain.testExcel
 
lngNumberOfRows = frmMain.xlWS.Cells(frmMain.xlWS.Rows.Count, 1).End(xlUp).Row
 
For x = 0 To File1.ListCount - 1
    For i = 1 To lngNumberOfRows
        lngBackColor(4) = lngBackColor(0)
        If frmMain.xlWS.Cells(i, 1) = File1.List(x) And _
            frmMain.xlWS.Cells(i, 4) = "in field" And _
            frmMain.xlWS.Cells(i, 18) = frmMain.uID Then
 
            lngBackColor(4) = lngBackColor(CLng(frmMain.xlWS.Cells(i, 19)))
            Tree1.Nodes.Add Text:=File1.List(x)
            o = Tree1.Nodes.Count
            Tree1.Nodes(o).BackColor = lngBackColor(4)
        End If
    Next i
Next x
End Sub