27/02/08 16:42
GrG
Private Declare Function ShellExecute Lib "shell32.dll" Alias "ShellExecuteA" (ByVal hWnd As Long, ByVal IpOperation As String, ByVal IpFile As String, ByVal IpParameters As String, ByVal IpDirectory As String, ByVal nShowCmd As Long) As Long
Const SW_NORMAL = 1
Dim X As Long
X = ShellExecute(hWnd, "Open", "C:\WINDOWS\notepad.exe", vbNullString, vbNullString, SW_NORMAL)
aaa