Función SetCulture. Símbolo decimal en números y moneda, Formato Fecha. Visual Basic .NET

    Private Sub SetCulture()
        'Sobreescribe la configuración regional (formato fecha, símbolo decimal, ...)
        'Si la llamada se hace en el evento Load del primer formulario, los demás formularios seguirán esta misma configuración
        System.Threading.Thread.CurrentThread.CurrentCulture = New System.Globalization.CultureInfo("es-Es")
        System.Threading.Thread.CurrentThread.CurrentCulture.DateTimeFormat.ShortDatePattern = "dd/MM/yyyy"
        System.Threading.Thread.CurrentThread.CurrentCulture.NumberFormat.CurrencyDecimalSeparator = ","
        System.Threading.Thread.CurrentThread.CurrentCulture.NumberFormat.CurrencyGroupSeparator = "."
        System.Threading.Thread.CurrentThread.CurrentCulture.NumberFormat.NumberDecimalSeparator = ","
        System.Threading.Thread.CurrentThread.CurrentCulture.NumberFormat.NumberGroupSeparator = "."
    End Sub