下面的例子是调用ARJ进行文件压缩，假设FnameX是你要生成的Arj文件，而FnameY是要压缩的文件。 
    CommandX = App.Path + "\Arj.exe" + " A " + FnameX + " " + FnameY 
    HandlWnd = Shell(CommandX, vbHide) 
    ProcHand = OpenProcess(SYNCHRONIZE, False, HandlWnd) 
    WaitTime = WaitForSingleObject(ProcHand, INFINITE) 
    ClosHand = CloseHandle(ProcHand) 
<END>