زبان کیبورد

چطوری می شود که در زمان اجرای برنامه بطور اتومات زبان کی برد فارسی شود ؟

سلام از کد زیر استفاده کنید:

 Private Declare Function LoadKeyboardLayout Lib "user32" Alias "LoadKeyboardLayoutA" (ByVal pwszKLID As String, ByVal flags As Long) As Long Public Sub Farsi_KB()     LoadKeyboardLayout "00000429", 1 End Sub  

موفق باشید