چجوری میشه وقتی برنامه اجرا میشه صفحه کلید رو فارسی کرد
شما میتونید با استفاده از کدهای زیر صفحه کلید را فارسی کنید :
Private Declare Function GetKeyboardLayoutName Lib "user32" Alias "GetKeyboardLayoutNameA" (ByVal pwszKLID As String) As Long
Private Const KL_NAMELENGTH = 9
Public Sub ToFarsi()
Dim strName As String
strName = String(KL_NAMELENGTH, 0)
GetKeyboardLayoutName strName
If InStr(1, strName, "00000409") <> 0 Then
SendKeys "%+"
End If
End Sub
Private Sub Form_Load()
Call ToFarsi
End Sub