arcmap 启动打开指定的mxd

有关VB中实现点击一个按钮要打开一个目录下的11111.mxd文件（可用ArcMap.exe，本人已经安装） 已解答

安装, 目录

Private Sub csgm_Click()
Shell  app.path&"\ArcMap.exe " & App.Path & "\11111.mxd"
End Sub