[RESOLVED] textbox ?

[Navarone]

I came across this code on google and it works but not all the arguments are displayed in the text box. Only the last element - duration; is showing up. How would I get all the values show up in my text box?

The command "info" should be passing the following data:

creationdate = Thu Dec 11 20:26:37 2003
framerate = 983040
audiodatarate = 64
videodatarate = 200
height = 240
width = 320
duration = 55.7557563781738

Private Sub axShockwaveFlash1_FSCommand(ByVal sender As Object, ByVal e As _
          AxShockwaveFlashObjects._IShockwaveFlashEvents_FSCommandEvent) _
          Handles AxShockwaveFlash1.FSCommand
 
        ' Use a select case statement to filter the command being passed  through
        Select Case e.command
            Case "info"
                ' Output the arguments
                'MessageBox.Show("The Arguments were: " & e.args)
                TextBox1.Text = ""
                TextBox1.Text = e.args
 
        End Select
    End Sub