Cambiar configuracion regional desde vb6.0

[KingColt]

Es posible cambiarla desde vb6.0, es decir cambiarla a una especifica, con solo pulsar un boton? ó quizas llamando a la ventana para hacerlo manualmente o se puede especificar que miprograma.exe use una determinada configuracion regional que no dependa de la que usa el S.O

[SalomonSab]

prueba con esto:

Código:

Dim n as Byte
    Dim X As Variant

    n = 0  
Repite:
    X = Mid(Date, 7)

    If Len(X) < 4 Then
        X = MsgBox("                 ¡¡¡ ATENCION !!!" & Chr(10) & Chr(10) & _
                "Modifique la ""Configuración Regional"" de forma que" & chr(10) &  _
                "la fecha tenga el formato de ""dd/mm/aaaa""", vbCritical)
        Shell "rundll32.exe shell32.dll,Control_RunDLL " & _
                "intl.cpl" & _
                ",," & _
                Format$(0)
        n = n + 1
        If n > 3 Then
            End
        Else
            GoTo Repite
        End If
    End If

'Este código lo pongo en las primeras líneas del procedimiento Main.

[KingColt]

No sucedio nada, quizas algo fallo en el codigo voy a revisarlo mejor, por otro lado mi problema surge por el tipo de moneda, en el windows xp generalmente biene con la configuracion regional Español(España).
Lo que quiero hacer es cambiarla a Español(Perú) automaticamente si es que se puede o si no llamar al formulario de configuracion regional para hacerlo manualmente o si existe alguna otra alternativa