Cómo programar para mostrar varios caracteres chinos junto a la hora en la barra de tareas

Const privada LOCALE_SSHORTDATE = amp;H1F

Const privada WM_SETTINGCHANGE = amp.H1A

Const privada HWND_BROADCAST = amp;HFFFFamp;

Función de declaración privada SetLocaleInfo Lib "kernel32" Alias ​​​​"SetLocaleInfoA" (ByVal Locale As Long, ByVal LCType As Long, ByVal lpLCData As String) como booleano

Función de declaración privada PostMessage Lib " user32" Alias ​​​​" PostMessageA" ( ByVal hwnd As Long, ByVal wMsg As Long, ByVal wParam As Long, ByVal lParam As Long) As Long

Función de declaración privada GetSystemDefaultLCID Lib "kernel32" () Mientras

Función de declaración privada GetLocaleInfo Lib "kernel32" Alias ​​​​"GetLocaleInfoA" (ByVal Locale As Long, ByVal LCType As Long, ByVal lpLCData As String, ByVal cchData As Long) As Long

Private Sub setdateformat ()

Dim dwLCID As Long, i As Long

Dim lpLCData As String * 255, cchData

cchData = Len (lpLCData)