Friend Function LeggiIni(ByVal Filename As String, ByVal Section As String, ByVal Key As String, Optional ByVal lpDefault As String = "", Optional ByVal bRaiseError As Boolean = False) As String
        '***********************************************************
        ' Func: IniRead SB 20080520
        ' Desc: Legge il valore di una Chiave di una Sezione precisa del file .Ini
        ' Par : FileName Nome e percorso completo del file .INI
        ' Section Sezione del file .Ini contenente la chiave
        ' Key Chiave del file .Ini da leggere
        ' [ldDefault] Valore di default in caso di lettura non riuscita
        ' [bRaiseError] Boolean. Se true viene generata un'eccezione in caso d'errore
        ' Ret : String Valore stringa letto.
        ' Note:
        '***********************************************************
        Dim RetVal As String = New String(" ", 255)
        Dim LenResult As Integer
        Dim ErrString As String

        LenResult = GetPrivateProfileString(Section, Key, lpDefault, RetVal, RetVal.Length, Filename)
        If LenResult = 0 AndAlso bRaiseError Then
            If Not (System.IO.File.Exists(Filename)) Then
                ErrString = "Impossibile trovare il file " & Filename
            Else
                ErrString = "Impossibile eseguire l'operazione: la sezione o la chiave sono errate oppure l'accesso al file non è consentito"
            End If
            Throw New Exception(ErrString)
        End If
        Return RetVal.Substring(0, LenResult)

    End Function

    Friend Function ScriviIni(ByVal Filename As String, ByVal Section As String, ByVal Key As String, ByVal Value As String, Optional ByVal bRaiseError As Boolean = False) As Boolean
        '***********************************************************
        ' Func: IniWrite SB 20080520
        ' Desc: Legge il valore di una Chiave di una Sezione precisa del file .Ini
        ' Par : FileName Nome e percorso completo del file .INI
        ' Section Sezione del file .Ini contenente la chiave
        ' Key Chiave del file .Ini da scrivere
        ' Value Stringa da assegnare alla chiave.
        ' [bRaiseError] Boolean. Se true viene generata un'eccezione in caso d'errore
        ' Ret : String Valore stringa letto.
        ' Note:
        '***********************************************************
        Dim LenResult As Integer
        Dim ErrString As String
        LenResult = WritePrivateProfileString(Section, Key, Value, Filename)
        If LenResult = 0 And bRaiseError Then
            If Not (System.IO.File.Exists(Filename)) Then
                ErrString = "Impossibile trovare il file " & Filename
            Else
                ErrString = "Impossibile eseguire l'operazione: accesso al file non consentito"
            End If
            Throw New Exception(ErrString)
        End If
        Return IIf(LenResult = 0, False, True)

    End Function