Visual Basic - Configuracion Regional

Saludos...

Necesito saber como obtengo el formato de fecha y hora de la configuracion regional de una maquina para luego utilizarlo como constante para el formateo de fecha...

Asumo que imagina lo que quiero..

Si por su experiencia creen que estoy abordando el problema por un medio equivocado, acepto sugerencias y ayudas que para mi serán valiosisimas..

Gracias
RGH

Puedes leer las siguientes claves del registro:
Mi PC\HKEY_CURRENT_USER\Control Panel\International\sDecimal
...\sThousand
..\sShortDate
..\sTimeFormat

Public Const HKEY_CURRENT_USER = &H80000001
Public Const REG_BINARY = 3
Public Const REG_SZ = 1
Declare Function RegCloseKey Lib "advapi32.dll" (ByVal hKey As Long) As Long
Declare Function RegOpenKey Lib "advapi32.dll" Alias "RegOpenKeyA" (ByVal hKey As Long, ByVal lpSubKey As String, phkResult As Long) As Long
Declare Function RegQueryValueEx Lib "advapi32.dll" Alias "RegQueryValueExA" (ByVal hKey As Long, ByVal lpValueName As String, ByVal lpReserved As Long, lpType As Long, lpData As Any, lpcbData As Long) As Long
Declare Function RegQueryValue Lib "advapi32.dll" Alias "RegQueryValueA" (ByVal hKey As Long, ByVal lpSubKey As String, ByVal lpValue As String, lpcbValue As Long) As Long
Public Function getstring(hKey As Long, strpath As String, strvalue As String)
Dim keyhand As Long
Dim r As Long
r = RegOpenKey(hKey, strpath, keyhand)
getstring = RegQueryStringValue(keyhand, strvalue)
r = RegCloseKey(keyhand)
End Function
Function RegQueryStringValue(ByVal hKey As Long, ByVal strValueName As String)
Dim lResult As Long
Dim lValueType As Long
Dim strBuf As String
Dim lDataBufSize As Long
lResult = RegQueryValueEx(hKey, strValueName, 0&, lValueType, ByVal 0&, lDataBufSize)
strBuf = String(lDataBufSize, " ")
lResult = RegQueryValueEx(hKey, strValueName, 0&, 0&, ByVal strBuf, lDataBufSize)
If lResult = 0 Then
RegQueryStringValue = Left(strBuf, InStr(strBuf & Chr$(0), Chr$(0)) - 1)
End If
End Function

Ejemplo:
getstring(&H80000001,"Control Panel\International","sDecimal")

Sobre un problema de "Configuracion Regional" que tenia esta solucionado, pero ahora quiero saber como puedo refrescar windows para que me asuma los cambios en los registrtos...

=