Option Explicit
 
Private Sub Form_Load()
 Dim CurrentNode As MSComctlLib.Node
 Dim FSO As New Scripting.FileSystemObject
 Dim File As Scripting.File
 Dim TStream As Scripting.TextStream
 Dim ItemText As String
 
 
  Set TStream = FSO.OpenTextFile("C:\NTDETECT.COM", ForReading, False, _
    TristateUseDefault)
 
    While TStream.AtEndOfLine = False
 
             ItemText = TStream.ReadLine
        With TreeView1
                              .Checkboxes = True
            Set CurrentNode = .Nodes.Add(, tvwFirst, , ItemText)
        End With
 
        With CurrentNode
            .ForeColor = vbRed
            .Checked = True
            .Bold = True
        End With
 
    Wend
 
  Set TStream = FSO.OpenTextFile("C:\arcsetup.exe", ForReading, False, _
    TristateUseDefault)
 
    While TStream.AtEndOfLine = False
 
             ItemText = TStream.ReadLine
        With TreeView1
                              .Checkboxes = True
            Set CurrentNode = .Nodes.Add(, tvwFirst, , ItemText)
        End With
 
        With CurrentNode
            .ForeColor = vbRed
            .Checked = True
            .Bold = True
        End With
 
    Wend
 
End Sub

Gr??e Kenjiro