Private Sub Form_Load()
  Dim sa() As String
  Dim i As Long
  'Check Counter
  For i = 0 To Module1.GetSectionCount("Ich", "C:\Test.ini", sa())
      List1.AddItem Mid(sa(i), InStr(sa(i), "=") + 1)
  Next
End Sub

Private Declare Function GetPrivateProfileSection Lib "kernel32.dll" Alias _
  "GetPrivateProfileSectionA" ( _
     ByVal lpAppName As String, _
     ByVal lpReturnedString As String, _
     ByVal nSize As Long, _
     ByVal lpFileName As String) As Long
 
Public Function GetSectionCount(ByVal sSectionName As String, _
                                ByVal sIniFile As String, _
                                ArOfSecNAmes() As String) As Long
   Dim sBuffer As String
   Dim sar() As String
 
   sBuffer = Space(65536)
 
   GetPrivateProfileSection sSectionName, sBuffer, Len(sBuffer), sIniFile
 
   If Len(sBuffer) > 0 Then
      sar = Split(sBuffer, Chr(0))
      GetSectionCount = UBound(sar) - 1
      ArOfSecNAmes = sar
   End If
End Function