Public Sub Laden()
Dim i As Variant, n As Integer, Liste As String
Dim Def As String, SValue As String, sa() As String
SValue = Space(256)
n = GetSectionCount("Netaccess2.0", App.Path & "\Verlauf.ini")
For i = 0 To n
     Liste = GetSectionCount("Test", App.Path & "\Verlauf.ini", sa)
txtUrl.AddItem Liste(i)
Next
End Sub

Beitrag wurde zuletzt am 25.04.08 um 20:34:39 editiert.