作者：杜勇

描述：激活其它应用程序。
一、语法：
AppActivate　title[,wait]
AppActivate语句的语法具有以下几个命名参数：

部分	描述
title	必需的。字符串表达式，所要激活的应用程序的名称。常使用Shell函数返回的任务识别码来替换title，以激活应用程序
wait	可选的。Boolean值，取值为True/False。说明在激活另一个应用程序之前调用的应用程序是否有焦点。如果为False（缺省），那么，即使调用的应用程序没有焦点，也直接激活指定的应用程序。如果为True，则调用的应用程序会等到有焦点后，才激活指定的应用程序

二、说明：
　　AppActivate语句不能打开应用程序，只能激活应用程序（使其变成活动窗口）。在使用AppActivate语句时必须打开应用程序，否则程序会报错。所以通常先用Shell函数启动一个应用程序，然后使用AppActivate语句激活。

三、应用举例：
　　本例使用AppActivate语句来激活Microsoft Excel。建立一个标准工程，在窗体上添加一个命令按钮，将下面的程序粘贴过去。
Private Sub Command1_Click()
　AppActivate "Microsoft EXCEL" '激活Microsoft Excel。
End Sub
　　首先打开Microsoft Excel，然后运行程序，单击命令按钮，你将看到Excel变成活动窗体。
　　下面示例用Shell函数启动Microsoft Excel，然后用AppActivate语句来激活Microsoft Excel。在运行程序前，首先找到Microsoft Excel的路径，并关闭Excel。
　　在上面的标准工程中，用下面的程序替换上面的程序，并把路径换成你电脑中Microsoft Excel的路径，然后运行程序，单击命令按钮，你将看到Excel被打开并被激活。
Private Sub Command1_Click()
　Dim MyAppID
　MyAppID = Shell("C:\Program Files\Microsoft Office\Office\EXCEL.EXE", 1)
　'运行Microsoft Excel。
　AppActivate MyAppID '激活Microsoft Excel。
End Sub