第一个问题:你可以定义一个按纽响应事件:
Dim myProcess As New Process()
Try
With myProcess
.StartInfo.FileName = Application.StartupPath + "\server.exe"
.StartInfo.CreateNoWindow = True
.Start()
End With
Catch ex As Exception
MessageBox.Show("在当前运行路径下没有找到对应程序,请仔细检查!", "错误信息", MessageBoxButtons.OK, MessageBoxIcon.Error)
End Try