APIを使ってもできますが、自アプリの為だけならこれで十分です。
'読み込み
'第4引数は"Key2"が存在しなかった時の値を設定します。
MsgBox GetSetting("Tips箪笥", "Key1", "Key2", "DefaultKey")
'登録
Call SaveSetting("Tips箪笥", "Key1", "Key2", "Set!!")
'削除
'Deleteという名前がついていますが実際は値のみが削除されます。
Call DeleteSetting("Tips箪笥", "Key1", "Key2")
DownLoad vbtips066.lzh 2KB (VB6.0)