Excelで画像表示ソフトを作ってみよう

'INIファイル書き込み
Private Declare Function GetPrivateProfileString Lib "kernel32" _
    Alias "GetPrivateProfileStringA" _
    (ByVal lpApplicationName As String, _
     ByVal lpKeyName As Any, ByVal lpDefault As String, _
     ByVal lpReturnedString As String, ByVal nSize As Long, _
     ByVal lpFileName As String) As Long

'終了ボタン
Private Sub CommandButton2_Click()
    Unload UserForm1
End Sub

Private Sub UserForm_Terminate()
    '現在のフォルダを保存
    WritePrivateProfileString "画像初期値", "フォルダ", TextBox1.Text, sMyBookPath & "gazo.ini"
End Sub