<DllImport("shell32.dll")> _
    Private Shared Function ShellExecute(
            ByVal hwnd As IntPtr,
            ByVal lpOperation As String,
            ByVal lpFile As String,
            ByVal lpParameters As String,
            ByVal lpDirectory As String,
            ByVal nShowCmd As ShowCommands) As IntPtr
    End Function

        ShellExecute(IntPtr.Zero,
                     "open",
                     "http://bbs.mychat.to/thread.php?fid=168",
                     "",
                     "",
                     ShowCommands.SW_SHOWNORMAL)

Process.Start("http://bbs.mychat.to/thread.php?fid=168")

        Dim psi As New ProcessStartInfo


        With psi
            .FileName = "将被执行的档案"
            .WorkingDirectory = "开始位置"
        End With


        Process.Start(psi)

Public Class Form1
    Private Sub Button1_Click() Handles Button1.Click
        Dim psi As New ProcessStartInfo


        With psi
            .FileName = Application.ExecutablePath
            .WorkingDirectory = IO.Path.GetTempPath()
        End With


        Process.Start(psi)
    End Sub


    Private Sub Form1_Load() Handles MyBase.Load
        MessageBox.Show(String.Format("Working directory: {0}",
                                      IO.Directory.GetCurrentDirectory()))
    End Sub


End Class

        Dim TWN_GameClientStartInfo As New ProcessStartInfo


        With TWN_GameClientStartInfo
            .FileName = My.Settings.TWN_TR_GameClient_Path  '"将被执行的档案"
            Dim TWN_PathWithoutFileName As String
            TWN_PathWithoutFileName = My.Settings.TWN_TR_GameClient_Path
            TWN_PathWithoutFileName = Replace(TWN_PathWithoutFileName, "\talesrunner.exe", "")
            .WorkingDirectory = TWN_PathWithoutFileName  '"开始位置"

        End With

        MsgBox("dir  " & TWN_GameClientStartInfo.WorkingDirectory & vbCrLf & "file   " & TWN_GameClientStartInfo.FileName)

TWN_PathWithoutFileName = My.Settings.TWN_TR_GameClient_Path
.WorkingDirectory = IO.Path.GetDirectoryName(TWN_PathWithoutFileName)