SolvedConnect To TF2 Server

Public Class Form1
    Dim streamer As IO.StreamReader


    Private Sub ListBox1_SelectedIndexChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles ListBox1.SelectedIndexChanged

    End Sub

    Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
        Process.Start("steam://rungameid/440-textmode -nosound -noipx -novid -nopreload -nojoy +volume 0 +connect")
    End Sub

    Private Sub AddToolStripMenuItem1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles AddToolStripMenuItem1.Click
        ListBox1.Items.Add(ToolStripTextBox1.Text)
    End Sub

    Private Sub SaveToolStripMenuItem_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles SaveToolStripMenuItem.Click
        SaveFD.InitialDirectory = "C:\Users\Lucas\Desktop"
        SaveFD.Title = "Save a Text file with servers in IP:PORT format"
        SaveFD.Filter = "Text Files in IP:Port format|*.txt"
        SaveFD.OverwritePrompt = True
        Dim DidWork As Integer = OpenFD.ShowDialog()
        If DidWork = DialogResult.OK Then
            Dim S As New IO.StreamWriter(SaveFD.FileName)
            Dim i As Integer
            For i = 0 To ListBox1.Items.Count - 1
                S.WriteLine(ListBox1.Items.Item(i))
            Next
            S.Close()
        End If
    End Sub

    Private Sub OpenToolStripMenuItem_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles OpenToolStripMenuItem.Click
        OpenFD.InitialDirectory = "C:\Users\Lucas\Desktop"
        OpenFD.Title = "Open a Text file with servers in IP:PORT format"
        OpenFD.Filter = "Text Files in IP:Port format|*.txt"
        Dim DidWork As Integer = OpenFD.ShowDialog()
        If DidWork = DialogResult.OK Then
            ListBox1.Items.Clear()
            Dim R As New IO.StreamReader(OpenFD.FileName)
            Dim str() As String = R.ReadToEnd.Split(vbNewLine)
            ListBox1.Items.AddRange(str)
            R.Close()
        End If
    End Sub

    Private Sub ToolStripMenuItem1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles ToolStripMenuItem1.Click
        ListBox1.Items.Clear()
    End Sub

    Private Sub AboutToolStripMenuItem_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles AboutToolStripMenuItem.Click
        MsgBox("Made by fireXtract on 8/25/2012")
    End Sub

    Private Sub MultiLoaderToolStripMenuItem_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MultiLoaderToolStripMenuItem.Click
        OpenFD.InitialDirectory = "C:\Users\Lucas\Desktop"
        OpenFD.Title = "Open a Text file with servers in IP:PORT format"
        OpenFD.Filter = "Text Files in IP:Port format|*.txt"
        Dim DidWork As Integer = OpenFD.ShowDialog()
        If DidWork = DialogResult.OK Then
            Dim R As New IO.StreamReader(OpenFD.FileName)
            Dim str() As String = R.ReadToEnd.Split(vbNewLine)
            ListBox1.Items.AddRange(str)
            R.Close()
        End If
    End Sub

End Class

    Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
        Process.Start("steam://rungameid/440-textmode -nosound -noipx -novid -nopreload -nojoy +volume 0 +connect'RIGHT HERE I WANT TO BE ABLE TO SAY WHAT I HAVE SELECTED FROM THE LISTBOX'")
    End Sub