我想在VB里写一段代码，能激活coreldraw窗口

请问一个问题。我想在VB里写一段代码，当点一下按钮后，能激活coreldraw窗口。
这样的代码该怎么写？
请写完整点，谢谢
我很穷，只有33分，不好意思了。全部悬赏了。

如果你要激活的程序程序不存在,用Shell打开并激活
Shell "c:\coreldraw.exe", vbMaximizedFocus '请修改路径为你的实际路径

如果你要激活的程序已经存在,用下面的方法
Private Declare Function FindWindow Lib "user32" Alias "FindWindowA" (ByVal lpClassName As String, ByVal lpWindowName As String) As Long
Private Sub Command1_Click()
Dim s As String
s = "coreldraw" '此处输入你要激活的应用程序的标题，注意要全字匹配
If FindWindow(vbNullString, s) Then
AppActivate s
End If
End Sub

用shell 就可以了！~

Private Sub Command1_Click() Shell "c:\coreldraw.exe" '这里指名路径 End Sub