There is an array that holds representations of all the installed languages. You can use it together with the gotfocus event:
VB Code:
Private Sub TextBox1_GotFocus
InputLanguage.CurrentInputLanguage = InputLanguage.InstalledInputLanguages(0)
End Sub
Private Sub TextBox2_GotFocus
InputLanguage.CurrentInputLanguage = InputLanguage.InstalledInputLanguages(1)
End Sub
To check what number each language is, something like that should work:
VB Code:
Dim InstalledLanguages As String
Dim lngNumber As Integer = 0
Dim Language As InputLanguage
For Each Language In InputLanguage.InstalledInputLanguages
InstalledLanguages &= lngNumber & ". " & Language.Culture.EnglishName & Environment.NewLine
lngNumber = lngNumber + 1
Next Language
MessageBox.Show(InstalledLanguages)