VB.NETでINIファイルのキー名を取得するには

    <System.Runtime.InteropServices.DllImport("KERNEL32.DLL", CharSet:=System.Runtime.InteropServices.CharSet.Auto)> _
    Private Shared Function GetPrivateProfileSection( _
        ByVal appName        As String,  _
        ByVal returnedString As String,  _
        ByVal bufferSize     As Integer, _
        ByVal fileName       As String) As Integer
    End Function

    Private Sub Button1_Click(ByVal sender As Object, ByVal e As System.EventArgs) Handles Button1.Click
        Dim stBuffer As String = New String(Microsoft.VisualBasic.ControlChars.NullChar, 1024)

        GetPrivateProfileSection("MosaMosaAA", stBuffer, 1024, "C:\MakiMakiLove.ini")

        Dim stResult As String = stBuffer.TrimEnd(Microsoft.VisualBasic.ControlChars.NullChar)
        Dim stSplits As String() = stResult.Split(Microsoft.VisualBasic.ControlChars.NullChar)

        For Each st As String In stSplits
            MessageBox.Show(st)
        Next
    End Sub

    Private Declare Function GetPrivateProfileBytes Lib "KERNEL32.DLL" Alias "GetPrivateProfileStringA" ( _

      ByVal lpAppName As String, _

      ByVal lpKeyName As String, _

      ByVal lpDefault As String, _

      ByVal lpReturnedString As Byte(), _

      ByVal nSize As Integer, _

      ByVal lpFileName As String) As Integer



    Private Function GetPrivateProfileKeys(ByVal section As String, ByVal fileName As String) As String()

        Dim returnByte(1024) As Byte



        Dim returnLength As Integer = GetPrivateProfileBytes(section, Nothing, Nothing, returnByte, returnByte.Length, fileName)

        Dim returnString As String = Encoding.Default.GetString(returnByte, 0, returnLength - 1)

        Return returnString.Split(Microsoft.VisualBasic.ControlChars.NullChar)



    End Function