Определение LCID (VB)

Private Declare Function GetThreadLocale Lib "kernel32" () As LongPrivate Sub Command1_Click() Dim LCID As Long Dim oLCID As Object '' Use out of proc server to get LCID in separate thread Set oLCID = CreateObject("lcidsrvr.class1") LCID = oLCID.GetLCID Text1.Text = LCID & " (" & Hex$(LCID) & ")"End Sub