Alt+shift

Hello,
As you know with some Windows Systems that support more than one language you can change between languages by pressing ALT+SHIFT.

How can I do this by VB?

Thanks

You need the API call SetThreadLocale -

VB Code:

Public Declare Function SetThreadLocale Lib "kernel32" (ByVal Locale As Long) As Long

i.e. to set it to US English:

VB Code:

Call SetThreadLocale(1003)

The attached code demonstartes this and all the other keyboard/locale related functions

HTH,
Duncan