[mamas1]

PHP كود :

'ضع الكود التالي في الموديل
Global Const KLF_ACTIVATE = &H1
Declare Function LoadKeyboardLayout Lib "user32" Alias "LoadKeyboardLayoutA" (ByVal pwszKLID As String, ByVal flags As Long) As Long


Private Sub Command1_Click()
'للتحويل إلى العربية
A = LoadKeyboardLayout("00000401", KLF_ACTIVATE)

'للنسخ
Cipboard.settext text1.text
End Sub