Hi all,

Im trying programmatically to obtain the "Default Input Languge" (found in
Control panel -> Regional and Language Settings -> Languages -> Details ->
Settings ) using VB6, Would appreciate any help

Many Thank

Mukhalisi wrote:
(Is this a multipost?)

   ' Win32 Locale functions
   Private Declare Function GetSystemDefaultLangID Lib "kernel32" () As Integer
   Private Declare Function GetLocaleInfo Lib "kernel32" Alias "GetLocaleInfoA"
(ByVal Locale As Long, ByVal LCType As Long, ByVal lpLCData As String, ByVal cchData
As Long) As Long

   ' Localized name of language
   Private Const SORT_DEFAULT As Long = &H0        ' sorting default

   Public Function LocaleLangauge(Optional LCID As Long) As String
      Dim nRet As Long
      Dim buf As String

      ' If user didn't provide an LCID, use
      ' current system default value.
      If LCID = 0 Then
         LCID = GetSystemDefaultLangID
      End If

      ' Determine buffer requirement for language.
      nRet = GetLocaleInfo(LCID, LOCALE_SLANGUAGE, buf, 0)
      buf = Space$(nRet)

      ' Obtain language description.
      Call GetLocaleInfo(LCID, LOCALE_SLANGUAGE, buf, Len(buf))
      LocaleLangauge = TrimNull(buf)
   End Function

problem with variable
Nonmodal form on Modal form?
Adding a VB6 module to a VB.NET project
Listview - Performance fine except when adding first item
Reszing form highlights combo box
Tab Question or is it?
Form in a form???
ODBC Time Out Expired
compare value from DTPicker and now()
New functions in .NET 2.0 ???