Option Explicit
' zunächst die benötigten API-Deklarationen (INI)
Public Declare Function WritePrivateProfileString Lib _
  "kernel32" Alias "WritePrivateProfileStringA" _
  (ByVal lpApplicationName As String, _
  ByVal lpKeyName As Any, ByVal lpString As Any, _
  ByVal lpFileName As String) As Long
 
Public Declare Function GetPrivateProfileString Lib _
  "kernel32" Alias "GetPrivateProfileStringA" _
  (ByVal lpApplicationName As String, _
  ByVal lpKeyName As Any, ByVal lpDefault As String, _
  ByVal lpReturnedString As String, ByVal nSize As Long, _
  ByVal lpFileName As String) As Long
 
' Eintrag aus INI-Datei lesen
Public Function GetIniString(ByVal Sektion As String, _
  ByVal Titel As String, ByVal Vorgabe As String, _
  ByVal INIFile As String, _
  Optional ByVal nSize As Integer = 256) As String
 
  Dim lResult As Long
  Dim sValue As String
 
  sValue = Space$(nSize)
  lResult = GetPrivateProfileString(Sektion, Titel, _
    Vorgabe, sValue, nSize, INIFile)
  GetIniString = Left$(sValue, lResult)
End Function

Private Sub TVAktu_Click()
Dim SectionNode As Node
Dim TitelNode As Node
Dim VorgabeNode As Node
 
Dim strSections As String
Dim strTitel As String
Dim strVorgabe As String
Dim Section() As String
Dim i As Integer
 
INIFile = txtINIFile.Text
 
TreeView.Nodes.Clear
TreeView.ImageList = Me.ImageList1
 
strSections = GetIniString(vbNullString, "", "", INIFile, 32767)
strTitel = GetIniString(strSections, vbNullString, "", INIFile, 32767)
strVorgabe = GetIniString(strSections, strTitel, vbNullString, INIFile,
32767)
 
If strSections <> "" Then
    Section = Split(strSections, Chr$(0))
 
        For i = 0 To UBound(Section) - 1
            Set SectionNode = TreeView.Nodes.Add(, tvwFirst, ,
strSections, Image:=1, SelectedImage:=2)
 
            Set TitelNode = TreeView.Nodes.Add(SectionNode, tvwChild, ,
strTitel, Image:=1, SelectedImage:=2)
            Set VorgabeNode = TreeView.Nodes.Add(TitelNode, tvwChild, ,
strVorgabe, Image:=1, SelectedImage:=2)
        Next i
End If