Sub MainWnd_CommandButton1_Click()

	Dim buf[MAX_PATH] As Byte
	ZeroMemory(buf,MAX_PATH)
	GetWindowText(GetDlgItem(hMainWnd, EditBox1), buf, MAX_PATH)

'	lstrcpy(buf , "C:\Windows\notepad.exe")

	Dim pInfo As PROCESS_INFORMATION
	Dim sInfo As STARTUPINFO
	Dim ecode As DWord

	sInfo.cb = Len(sInfo)
	CreateProcess(NULL, buf , ByVal 0, ByVal 0, 1, NORMAL_PRIORITY_CLASS, 0, NULL, sInfo, pInfo)
	WaitForSingleObject(pInfo.hProcess, INFINITE )
	GetExitCodeProcess(pInfo.hProcess, ecode)
	CloseHandle(pInfo.hThread)
	CloseHandle(pInfo.hProcess)

End Sub