Public Sub New(ByVal sCulture As String)

        If sCulture <> "" Then
            Dim Cultura As String = sCulture ' "es-ES" ,"it-IT", "en-EN"
            Dim culture As System.Globalization.CultureInfo
            culture = New System.Globalization.CultureInfo(Cultura)
            '  System.Threading.Thread.CurrentThread.CurrentUICulture = New System.Globalization.CultureInfo(Cultura, True)

            System.Threading.Thread.CurrentThread.CurrentCulture = System.Globalization.CultureInfo.CreateSpecificCulture(Cultura)
            System.Threading.Thread.CurrentThread.CurrentUICulture = System.Globalization.CultureInfo.CreateSpecificCulture(Cultura)
        End If
    End Sub