Attribute VB_Name = "ModuleFarsisaz"
Private Declare Function LoadKeyboardLayout Lib "user32" Alias "LoadKeyboardLayoutA" (ByVal pwszKLID As String, ByVal flags As Long) As Long

Public Sub SetKeyboardtoFarsi(val As Boolean)
If val Then
 LoadKeyboardLayout "00000429", 1
Else
 LoadKeyboardLayout "00000409", 1
End If
End Sub