Public Module gestisci_ini
    <DllImport("kernel32.dll", SetLastError:=True)> _
    Private Shared Function GetPrivateProfileString(ByVal lpAppName As String, _
                            ByVal lpKeyName As String, _
                            ByVal lpDefault As String, _
                            ByVal lpReturnedString As StringBuilder, _
                            ByVal nSize As Integer, _
                            ByVal lpFileName As String) As Integer
    End Function

    <DllImport("kernel32.dll", SetLastError:=True)> _
    Private Shared Function WritePrivateProfileString(ByVal lpAppName As String, _
                        ByVal lpKeyName As String, _
                        ByVal lpString As String, _
                        ByVal lpFileName As String) As Boolean
    End Function

    Public Function ReadIniData(ByVal Section As String, ByVal Key As String) As String
        Dim Valore As Long
        Dim RetVal As New StringBuilder(1024)
        Valore = GetPrivateProfileString(Section, Key, "Errore", RetVal, RetVal.Capacity, Path.Combine(Application.StartupPath, "OffsetCalculator_Net.ini"))
        Return RetVal.ToString()
    End Function
    
    Public Sub WriteIniData(ByVal Section As String, ByVal Key As String, ByVal Value As String)
    Dim Valore As Long
    Valore = WritePrivateProfileString(Section, Key, Value, Path.Combine(Application.StartupPath, "OffsetCalculator_Net.ini"))
  End Sub
    
End Module