'===================================
'=      iniファイル操作
'=   WriteIni---Iniファイルに書きこみ
'=   ReadIni---Iniファイルの読みこみ
'===================================
Public Function WriteIni(Section As String, KeyName As String, WriteData As String) As Long
    WriteIni = WritePrivateProfileStringA(Section, KeyName, WriteData, MyPath & INI_NAME)
End Function

Public Function ReadIni(Section As String, KeyName As String, Optional strDefault As String) As String
    Dim n As String * 255
    Dim rc As Long
    rc = GetPrivateProfileStringA(Section, KeyName, strDefault, n, 255, MyPath & INI_NAME)
    ReadIni = Left(n, InStr(n, Chr(0)) - 1)
End Function
Public Function AppPath()
    MyPath = App.Path
    If Right$(MyPath, 1) <> "\" Then
        MyPath = MyPath & "\"
    End If
End Function

これの意味がわｋらん(;´Д`)