please tell me how can use tow language in tow diffrent textbox?

See more:

VB

ASP.NET

i am using tow text boxes one is engslih language and other is thai language it is installed in my computer i use these bellow code please see

Public Class Form1
    'Constant for english language

    Private Const _ENGLISH As String = "ENGL"

    'Constant for thai language

    Private Const _THAI As String = "THAI"

'A Temporary variable to hold the color of a control

Private OriginalColor As Color
    Private Sub TextBox2_GotFocus(ByVal sender As Object, ByVal e As System.EventArgs) Handles TextBox2.GotFocus, TextBox1.GotFocus

'===========================================================================

' FIRST PART - LANGUAGE(SWITCHING)

'===========================================================================

'We'll use the case statement to inspect the sender objects .Tag property

Select Case sender.Tag

Case _THAI
                'If the Tag contains the word "THAI"

                'Loop through all the installed languages on this System

                For Each Lng As InputLanguage In InputLanguage.InstalledInputLanguages

                    'If there exists a language whose DisplayName has got the 

                    'word "THAI" in it

                    If Lng.Culture.DisplayName.ToUpper.StartsWith(_THAI) Or Lng.Culture.DisplayName.ToUpper.StartsWith("CATA") Then

                        'Change current input language to that 

                        InputLanguage.CurrentInputLanguage = Lng

                        'Exit for - coz we have found our language and no need to 

                        'go through the rest of the loop

                        Exit For

                    End If

                Next

            Case _ENGLISH           'If the Tag contains the word "ENGL"

                'Loop through all the installed languages on this System

                For Each Lng As InputLanguage In InputLanguage.InstalledInputLanguages

                    'If there exists a language whose DisplayName has got the 

                    'word "ENGL" in it

                    If Lng.Culture.DisplayName.ToUpper.StartsWith(_ENGLISH) Then

                        'Change current input language to that 

                        InputLanguage.CurrentInputLanguage = Lng

                        'Exit for - coz we have found our language and no need to 

                        'go through the rest of the loop

                        Exit For

                    End If

                Next

        End Select
    End Sub
End Class

i use it but it can not changes language please tell me how i can use these setting
when i write one text box so it should me in English and when i go in second text-box so it write Thai please help me