الأخوة الأعزاء
بأدناه أكواد فتح أحد تطبيقات وندوز للفتح من داخل الأكسيس ، وهذا الأكواد تعمل كلا على حدة مع وندوز إكس بي فقط ولاتعمل مع وندوز 8 (32 بيت و 64 بت)
فهل من منجد لتعديله للعمل مع وندوز 8.1 (32 بت)
Private Sub OpenKey_Click()
On Error GoTo Err_OpenKey_Click
' Dim RetVal
' RetVal = Shell("C:\WINDOWS\System32\osk.exe", 1)
Dim stAppName As String
stAppName = "C:\WINDOWS\System32\osk.exe"
Call Shell(stAppName, 1)
' Call Shell("osk.exe", 1)
Exit_OpenKey_Click:
Exit Sub
Err_OpenKey_Click:
MsgBox Err.Description
Resume Exit_OpenKey_Click
End Sub