Private Sub TreeView1_Click()
 
    If Not TreeView1.SelectedItem Is Nothing Then
        ListView1.ListItems.Clear
 
        Dim strValues() As String
            Call INIGetArray(sRegFile, TreeView1.SelectedItem.FullPath, _
              strValues)
 
        Dim strName As String, strRest As String, strTypeAndValue() As String
        Dim strType As String, strValue As String
        Dim bEditied As Boolean
 
        On Error Resume Next
            Debug.Print strValues(0)
            If Not Err.Number = 9 Then
                For i = 0 To UBound(strValues)
                    Debug.Print strValues(i)
                    strName = Mid(strValues(i), 1, InStr(2, strValues(i), "=") _
                      - 1)
                    strRest = Mid(strValues(i), InStr(1, strValues(i), "=") + 1)
                    strTypeAndValue = Split(strRest, ":")
 
                    If strName = "@" Then
                        strName = "(default)"
                        strType = "REG_SZ"
                        strValue = Mid(strValues(i), InStr(1, strValues(i), _
                          "=") + 1)
                        bEditied = True
                    Else
                        strName = Mid(strName, 2, Len(strName) - 2)
                        If UBound(strTypeAndValue) = 1 Then
                            strType = "REG_" & UCase(strTypeAndValue(0))
                            If strType = "REG_HEX" Then strType = "REG_BINARY"
                            strValue = strTypeAndValue(1)
 
                            If Right(strValue, 2) = ",\" Then
                                Dim b As Boolean
                                    b = True
 
                                Do While b = True
 
                                    If Right(strValues(i + 1), 2) = ",\" Then
                                        i = i + 1
                                        b = True
                                        strValue = Left(strValue, Len(strValue) _
                                          - 1) & strValues(i)
                                    Else
                                        i = i + 1
                                        b = False
                                        strValue = Left(strValue, Len(strValue) _
                                          - 1) & strValues(i)
                                    End If
                                Loop
 
                            End If
 
                            bEditied = True
                        ElseIf UBound(strTypeAndValue) = 0 Then
                            strType = "REG_SZ"
                            strValue = Mid(strTypeAndValue(0), 2, Len( _
                              strTypeAndValue(0)) - 2)
                            bEditied = True
                        End If
                    End If
 
                    If bEditied = True Then
                        ListView1.ListItems.Add ListView1.ListItems.Count + 1, _
                          , strName
                        ListView1.ListItems( _
                        ListView1.ListItems.Count).ListSubItems.Add 1, , strType
                        ListView1.ListItems( _
                        ListView1.ListItems.Count).ListSubItems.Add 2, , _
                        strValue
                        bEditied = False
                    End If
 
                Next i
            End If
 
    End If
 
End Sub

Mit freundlichen Gr??en,
Andy G.