****l(pathname[,windowstyle])

Dim Ret&
Ret = ****l("notepad.exe", 1)

Declare Function WinExec& Lib "kernel32" (ByVal _
lpCmdLine As String, ByVal nCmdShow As Long

 
Declare Function CreateProcess Lib "kernel32" Alias _
"CreateProcessA" (ByVal lpApplicationName As String, _
ByVal lpCommandLine As String, lpProcessAttributes _
As SECURITY_ATTRIBUTES, lpThreadAttributes As _
SECURITY_ATTRIBUTES, ByVal bInheritHandles As _
Long, ByVal dwCreationFlags As Long, lpEnvironment _
As Any, ByVal lpCurrentDriectory As String, _
lpStartupInfo As STARTUPINFO, lpProcessInformation _
As PROCESS_INFORMATION) As Long

Declare Function FindExecutable Lib "****l32.dll" Alias _
"FindExecutableA" (ByVal lpFile As String, ByVal _
lpDirectory As String, ByVal lpResult As String) _
As Long

str_Buf = Mid(str_Buf, 1, InStr(str_Buf, Chr(0)) - 1)
****l str_Buf & " " & FileName, 1
End Sub
Private Sub Command1_Click()
****lFile "c:Test.txt"
End Sub

Declare Function ****lExecute Lib "****l32.dll" Alias _
"****lExecuteA" (ByVal hwnd As Long, ByVal lpOperation _
As String, ByVal lpFile As String, ByVal lpParameters _
As String, ByVal lpDirectory As String, ByVal nShowCmd _
As Long) As Long

****lExecute hwnd, "Open", "Calc.exe", _
vbNullString, vbNullString, 3

Private Declare Function ****lExecute Lib "****l32.dll" Alias _
"****lExecuteA" (ByVal hwnd As Long, ByVal lpOperation _
As String, ByVal lpFile As String, ByVal lpParameters _
As String, ByVal lpDirectory As String, ByVal nShowCmd _
As Long) As Long
Sub ****lDocument(FileName As String)
Dim Ret&
Ret = ****lExecute(hwnd, "Open", FileName, "", "", 1)
If Ret <= 32 Then
Select Case Ret
Case 2&
MsgBox "الملف غير موجود"
Case 3&
MsgBox "المسار غير موجود"
Case 5&
MsgBox "تعذر الوصول"
Case 8&
MsgBox "ذاكرة غير كافية"
Case 11&
MsgBox "هناك خلل في الملف التنفيذي"
Case 32&
MsgBox "مكتبة الربط غير موجودة"
Case 31&
MsgBox "لايوجد برنامج مقترن بهذا الامتداد"
Case Else
MsgBox "خطأ غير معرف في هذا المثال"
End Select
End If
End Sub

Private Sub Command1_Click()
****lDocument "C:Test.txt"
End Sub