用VB写一个程序
用该程序打开别的程序
我知道是System.Diagnostics.Process.Start（“”）这个公式
里面是文件的路径
我想知道怎么自己用inputbox输入一部分路径
下面是一部分代码
惊叹号中的代码不知道怎么写
求指导
Private Sub Button1_Click(ByVal sender As Object, ByVal e As System.EventArgs) Handles Button1.Click
'System.Diagnostics.Process.Start("C:\Users\Administrator\Desktop\ASD.BAT")
System.Diagnostics.Process.Start ！！！ ("X\Client.exe")！！！
End Sub
Private Sub Button2_Click(ByVal sender As Object, ByVal e As System.EventArgs) Handles Button2.Click
Dim X As String
X = InputBox("请输入游戏路径")
Label5.Text = X
End Sub

如果把路径补全能运行
但是我想自己输入路径
可以是全部路径

可以用一个按钮实现输入路径和打开文件，刚给你写了一下完整的代码，如下：
Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
Dim mypath As String = InputBox("输入完整路径")
If Len(mypath) = 0 Then
Exit Sub
End If
If System.IO.File.Exists(mypath) Then
System.Diagnostics.Process.Start(mypath)
Else
MessageBox.Show("未找到您输入路径的文件！")
End If
End Sub
希望能达到你的要求。

利用combobox选择内容
判断combobox内容
判断启动密码是否正确
比如说combobox选择了1
用文本框textbox输入密码
密码为123456
点击运行
判断密码是否正确
如果密码正确 运行程序A 路径（E：\A）
如果密码错误 弹出提示框提示密码错误
同理用combobox选择2
密码为asdfgh
求大神给代码 顺便给说明下代码的意思用处什么的 不甚感激

运行界面如下：
代码如下，请做参考：
Public Class Form1
Private Sub Button2_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button2.Click
Dim str1 As String = InputBox("请输入密码") '提示框，输入密码
If Len(str1) = 0 Then
Exit Sub
End If
If str1 <> "123456" Then '密码为123456
MsgBox("密码错误！") '密码错误提示，密码错误则无法保存新路径
Exit Sub
End If
My.Settings.路径1 = TextBox1.Text '
My.Settings.路径2 = TextBox2.Text
My.Settings.Save() '如果密码正确，则将textbox里面的内容保存！咱们的VB程序，每次打开时像textbox里你输入的数字都会清空的，所以我们要想办法让他下次打开时依旧能显示之前我们设置的路径
End Sub
Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
Dim str1 As String = InputBox("请输入密码")
If Len(str1) = 0 Then '如果在提示框中点击“取消”按钮，则退出
Exit Sub
End If
If str1 <> "123456" Then '密码错误则退出，不会打开文件
MsgBox("密码错误！")
Exit Sub
End If
If RadioButton1.Checked = True Then '选择开启的路径
If TextBox1.Text = "" Then '判断文件路径是否有设置
MsgBox("路径不能为空!")
Exit Sub
End If
If System.IO.File.Exists(TextBox1.Text) Then '判断是否存在此文件
System.Diagnostics.Process.Start(TextBox1.Text) '打开文件
Else
MessageBox.Show("未找到您输入路径的文件！") '如果不存在此文件，则提示
Exit Sub
End If
ElseIf RadioButton2.Checked = True Then
If TextBox2.Text = "" Then
MsgBox("路径不能为空!")
Exit Sub
End If
If System.IO.File.Exists(TextBox2.Text) Then
System.Diagnostics.Process.Start(TextBox2.Text)
Else
MessageBox.Show("未找到您输入路径的文件！")
Exit Sub
End If
End If
End Sub
Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
TextBox1.Text = My.Settings.路径1 '关闭后，下次开启时能让textbox显示我们之前保存的路径
TextBox2.Text = My.Settings.路径2
End Sub
End Class

重新写了一遍。
''' <summary>
''' 弹出一个提示框，提示用户输入路径并启动应用程序。
''' </summary>
''' <returns></returns>
Public Shared Function RunApp(Optional ByVal IgnoreEmptyString As Boolean = False)
Try
'=====OperatorPerm=====
If Not My.User.IsInRole(ApplicationServices.BuiltInRole.Administrator) Then
MsgBox("抱歉，本应用程序未使用管理员权限启动，无法启动另一应用程序。")
Return -1
Exit Function
End If
'==EOperatorPerm==
Dim AppPath As String = InputBoxEx("请在此处输入完整的应用程序路径。")
'检测输入的字符串是否为空
If (AppPath = Nothing) Or (AppPath = "") Then
MsgBox("抱歉，应用程序路径不能为空。", vbExclamation + vbOKOnly)
Return -1
Exit Function
End If
'启动应用程序
Return Shell(AppPath)
Catch RunException As Exception
MsgBox("失败：" & RunException.Message, vbCritical + vbOKOnly)
Return -1
End Try
End Function

你们这样挖坟真的好么