Eastunfail(东方不败)说这样修改系统时间格式！！！！！

Question

Private Declare Function SetLocaleInfo Lib "kernel32" Alias "SetLocaleInfoA" (ByVal Locale As Long, ByVal LCType As Long, ByVal lpLCData As String) As Boolean
Private Declare Function PostMessage Lib "user32" Alias "PostMessageA" (ByVal hwnd As Long, ByVal wMsg As Long, ByVal wParam As Long, ByVal lParam As Long) As Long
Private Declare Function GetSystemDefaultLCID Lib "kernel32" () As Long
Private Const LOCALE_SSHORTDATE = &H1F
Private Const WM_SETTINGCHANGE = &H1A
Private Const HWND_BROADCAST = &HFFFF&
Dim dwLCID As Long
        dwLCID = GetSystemDefaultLCID()
         xx = SetLocaleInfo(dwLCID, LOCALE_SSHORTDATE, Trim(DateFormat))
         PostMessage HWND_BROADCAST, WM_SETTINGCHANGE, 0, 0
    Dim Path As String, strSave As String
    strSave = String(250, Chr$(0))
    Path = Left$(strSave, GetWindowsDirectory(strSave, Len(strSave)))
    Dim r As Long
    Dim iniPath As String
    iniPath$ = Path + "\win.ini"
    r = WritePrivateProfileString("intl", "sShortDate", DateFormat, iniPath)

Answer 1

HKEY_CURRENT_USER\Control Panel\International\sShortDate
就是修改这里

Answer 2

东方不败的意思好象是说直接在vb的IDE中进行设置，而无须写代码，当然，也可以在打包时修改注册表，这个我已经知道，我只是对 东方不败 的方法感兴趣。