Try
            For Each lviApp As ListViewItem In gobjProgList.lstProgs.Items
                Start(lviApp.SubItems(1).Text)
            Next
        Catch ex As Exception
            MessageBox.Show("An error occurred while loading the other programs.  Please try again.", _
            "Error", MessageBoxButtons.OK, MessageBoxIcon.Error)
            Exit Sub
        End Try
        Try
            Dim strLaunchCommand As String
            strLaunchCommand = txtRenPath.Text
            strLaunchCommand += " +connect "
            strLaunchCommand += txtIP.Text
            strLaunchCommand += ":" & mstPort.Text
            strLaunchCommand += " +netplayername"
            strLaunchCommand += " " & ControlChars.Quote & txtNick.Text _
            & ControlChars.Quote
            strLaunchCommand += " " & txtCommands.Text
            Start(strLaunchCommand)
        Catch ex As Exception
            MessageBox.Show("An error occurred while launching Renegade.  " _
            & "Please make sure that the Renegade executable path is correct", _
"Error launching Renegade", MessageBoxButtons.OK, MessageBoxIcon.Error)
        End Try
    End Sub