>>467
>>469
ありがとうございます！
VB6の構文を使っていたんですね、引数の型を直したらうまく動きました。

>>468
AppActivateの存在を知りませんでした。
調べてみます。