请问一个vb中按钮运行程序的有关问题

请教一个vb中按钮运行程序的问题
Private Sub Command3_Click()
Dim X
X = Shell("D:\我的文档\课程设计\6.5\Debug\du.exe")
End Sub

这样用按钮打开du.exe，但是很不方便，一换电脑路径就不对了
请教一种方法不管在哪个电脑都能正确的打开du.exe
编写的程序本身和du.exe是在一个文件夹的

在线等

[解决办法]
X = Shell(App.Path & "\du.exe")