'-ถ้าซื้อ Software มาก็ถามผู้พัฒนาครับ
'- ถ้าเขียนโปรแกรมเอง ก็ประมาณนี้ครับ ใน VB.Net

Public Class Form1

    Private EnglishInput As InputLanguage

    Private Sub Form1_Load(sender As Object, e As EventArgs) Handles MyBase.Load

        EnglishInput = InputLanguage.CurrentInputLanguage

        Dim count As Integer

        count = InputLanguage.InstalledInputLanguages.Count

        For i As Integer = 0 To (count - 1)
            If InputLanguage.InstalledInputLanguages(i).LayoutName.Contains("English") = True Then
                EnglishInput = InputLanguage.InstalledInputLanguages(i)
            End If
        Next i

        TextBoxBarcode.Focus()
        TextBoxBarcode.Select()

    End Sub

    Private Sub TextBoxBarcode_KeyDown(sender As Object, e As KeyEventArgs) Handles TextBoxBarcode.KeyDown
        If e.KeyCode = Keys.Enter Then
            MsgBox(InputLanguage.CurrentInputLanguage.Culture.EnglishName & vbNewLine & "Barcode: " & TextBoxBarcode.Text.Trim.ToString)
        End If
    End Sub

    Private Sub TextBoxBarcode_Enter(sender As Object, e As EventArgs) Handles TextBoxBarcode.Enter
        InputLanguage.CurrentInputLanguage = EnglishInput
    End Sub

    Private Sub TextBoxBarcode_GotFocus(sender As Object, e As EventArgs) Handles TextBoxBarcode.TextChanged
        InputLanguage.CurrentInputLanguage = EnglishInput
    End Sub

End Class