تغییر زبان صفحه کلید با api

[Dani_Scorpion]

من API این کار رو میدونم چیه اما نمی دونم چه طور استفاده می شه اگه کسی میدونه لطفا به ما هم بگه
ممنون
:11:
Private Const KL_NEXT = 1
Private Const KL_PREV = 0
Private Declare Function ActivateKeyboardLayput Lib "user32.dll" (ByVal HKL As Long , ByVal Flags As Long) As Long

[arefba]

سلام دوست عزیز برای تغییر زبان هم میشه از api استفاده کرد و هم میشه از کد ی که براتون می نویسم استفاده کنید من معمولا از این کد استفاده می کنم که براتون میزارم

کد تبدیل به فارسی که می تونید تو یه دکمه بنویسید:
()Private Sub Command1_Click
StrLocId = LoadKeyboardLayout("00000429", 1)
End Sub

و اینم کد تبدیل به انگلیسی تو یه دکمست
()Private Sub Command2_Click
(StrLocId = LoadKeyboardLayout(vbNull, 1
End Sub
و اگه خواستین هر دو تاشون تو یه دکمه باشه می تونید از یه دستور شرطی استفاده کنید که به علت سهولت نیاز به توضیحش نمی بینم