vb net ini файлы

Ответ от Draken[гуру]
Сохранение и чтение данных INI файла.
Option Explicit
Declare Function GetPrivateProfileString Lib "kernel32.dll" 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
Declare Function WritePrivateProfileString Lib "kernel32" Alias "WritePrivateProfileStringA" (ByVal lpApplicationName As String, ByVal lpKeyName As Any, ByVal lpString As Any, ByVal lpFileName As String) As Long
Public Function GetString(INIFile As String, Section As String, Key As String, Default As String)
Dim slength As Long
Dim temp As String * 255
temp = Space(256)
slength = GetPrivateProfileString(Section, Key, Default, temp, 255, INIFile)
GetString = Left(temp, slength)
End Function
Public Function SetString(INIFile As String, Section As String, Key As String, Value As String)
Dim n As Integer
Dim temp As String
temp = Value
For n = 1 To Len(Value)
If Mid$(Value, n, 1) = vbCr Or Mid$(Value, n, 1) = vbLf Then Mid$(Value, n) = ""
Next n
n = WritePrivateProfileString(Section, Key, temp, INIFile)
End Function