RE:Leer Configuracion Regional
Hola! Lo que podes usar es la API GetLocaleInfo, te paso un ejemplo de como utilizarla
En un form agrega el siguiente codigo (las constantes y declaraciones de API's) en la seccion general
'Nombre del lenguaje
Const LOCALE_SLANGUAGE As Long = &H2
'Nombre del Lenguaje(Ingles)
Const LOCALE_SENGLANGUAGE As Long = &H1001
'Nombre del Pais
Const LOCALE_SCOUNTRY As Long = &H6
'Nombre del Pais(Ingles)
Const LOCALE_SENGCOUNTRY As Long = &H1002
Const LOCALE_SNATIVECTRYNAME As Long = &H8
Private Declare Function GetThreadLocale Lib "kernel32" () As Long
Private Declare Function GetSystemDefaultLCID Lib "kernel32" () As Long
Private Declare Function GetLocaleInfo Lib "kernel32" _
Alias "GetLocaleInfoA" _
(ByVal Locale As Long, _
ByVal LCType As Long, _
ByVal lpLCData As String, _
ByVal cchData As Long) As Long
Luego en el evento Click de un boton, este otro codigo:
Private Sub Command3_Click()
Dim LCID As Long
Dim sNombrePais As String
Dim X As Long
LCID = GetSystemDefaultLCID()
X = GetLocaleInfo(LCID, LOCALE_SCOUNTRY, sNombrePais, Len(sNombrePais))
If X Then
sNombrePais = Space$(X)
X = GetLocaleInfo(LCID, LOCALE_SCOUNTRY, sNombrePais, Len(sNombrePais))
If X Then
MsgBox "Nombre del Pais: " & Left$(sNombrePais, X - 1), vbInformation, "Configuración Regional"
End If
End If
End Sub
Fijate los valores que te devuelve si cambias las constantes, por ejemplo proba cambiar LOCALE_SCOUNTRY por LOCALE_SENGCOUNTRY y asi vas determinar cual es la mejor opcion para tu proyecto.
Bueno, espero te sirva.Saludos