Para obtener los nombres de todas las secciones de un archivo .ini usaremos el API GetPrivateProfileSectionNames.
Los nombres de las secciones vienen separados por un chr(0) y el último nombre va seguido de dos.

En el siguiente ejemplo veremos como rellenar un ListBox con esta información :

Private Declare Function GetPrivateProfileSectionNames Lib "kernel32" Alias "GetPrivateProfileSectionNamesA" (ByVal lpReturnedString As String, ByVal nSize As Long, ByVal lpFileName As String) As Long

Dim Secciones As String, NumCar As Long, i As Long, j As Long

Secciones = Space$(2000)
NumCar = GetPrivateProfileSectionNames(Secciones, 2000, "c:\windows\system.ini")
i = InStr(Secciones, Chr$(0))
j = 1
While i > 0 And i < NumCar
    List1.AddItem Mid(Secciones, j, i - j)
    j = i + 1
    i = InStr(j, Secciones, Chr$(0))
Wend