نغییر زبان سیستم

[www.pc3enter.tk]

دوتا دکمه قرار بدهید داخل فروم و بعد این را کپی کنید و صفحه را کامل پاک و این کد را پیست کنید


Private Const hkl_next = 1
Private Const hkl_prev = 0

Private Declare Function ActivateKeyboardLayout Lib "user32" (ByVal HKL As Long, ByVal flags As Long) As Long

Private Declare Function GetKeyboardLayout Lib "user32" (ByVal dwLayout As Long) As Long
Dim oldkb As Long



Private Sub Command1_Click()
oldkb = GetKeyboardLayout(0)
ActivateKeyboardLayout hkl_next, ByVal 0&
End Sub




Private Sub Command2_Click()
ActivateKeyboardLayout oldkb, ByVal 0&

End Sub