تابعی برای تغییر زبان فعلی کیبورد :

Public Sub SetLanguage(ByVal LabgugeName As Labguage)
If Labguage.FA_Persian = LabgugeName Then
InputLanguage.CurrentInputLanguage = InputLanguage.FromCulture(New System.Globalization.CultureInfo("Fa"))
ElseIf Labguage.EN_English = LabgugeName Then
InputLanguage.CurrentInputLanguage = InputLanguage.FromCulture(New System.Globalization.CultureInfo("En"))
End If
End Sub
Public Enum Labguage
FA_Persian = 0
EN_English = 1
End Enum


روش استفاده :

SetLanguage(Labguage.FA_Persian)