Как в Английской версии Windows заставить мою форму и все контролы отображать кириллицу

Option Explicit
 
Private Declare Function CreateWindowEx Lib "user32" Alias "CreateWindowExW" (ByVal dwExStyle As Long, ByVal lpClassName As Long, ByVal lpWindowName As Long, ByVal dwStyle As Long, ByVal x As Long, ByVal y As Long, ByVal nWidth As Long, ByVal nHeight As Long, ByVal hWndParent As Long, ByVal hMenu As Long, ByVal hInstance As Long, lpParam As Any) As Long
Private Declare Function SendMessageW Lib "user32" (ByVal hwnd As Long, ByVal wMsg As Long, ByVal wParam As Long, lParam As Any) As Long
 
Private Const WS_EX_CLIENTEDGE = &H200&
Private Const WS_CHILD = &H40000000
Private Const WS_HSCROLL = &H100000
Private Const WS_VSCROLL = &H200000
Private Const ES_AUTOHSCROLL = &H80&
Private Const ES_AUTOVSCROLL = &H40&
Private Const ES_LEFT = &H0&
Private Const ES_MULTILINE = &H4&
Private Const WS_VISIBLE = &H10000000
Private Const WM_SETFONT = &H30
 
Dim hEdit As Long
 
Private Sub Form_Load()
    Dim Fnt As IFont
    hEdit = CreateWindowEx(WS_EX_CLIENTEDGE, StrPtr("EDIT"), 0, WS_CHILD Or WS_VISIBLE Or ES_LEFT Or _
                         ES_MULTILINE Or ES_AUTOHSCROLL Or ES_AUTOVSCROLL Or WS_VSCROLL Or WS_HSCROLL, _
                         5, 5, ScaleX(Me.ScaleWidth, Me.ScaleMode, vbPixels) - 10, _
                         ScaleY(Me.ScaleHeight, Me.ScaleMode, vbPixels) - 10, Me.hwnd, 0, 0, ByVal 0&)
    Set Fnt = Me.Font
    SendMessageW hEdit, WM_SETFONT, Fnt.hFont, ByVal 0
End Sub

Dim a As String
    a = StrConv(Me.Caption, vbFromUnicode) & "  " & StrConv(Me.Caption, vbUnicode)
    SendMessageW hEdit, WM_SETTEXT, -1, ByVal a

Private Const WM_SETTEXT = &HC

    Text = "Êèðèëëèöà" & vbNullChar
    SendMessageW hEdit, WM_SETTEXT, 0, ByVal StrPtr(Text)