Visual Basic - Help displaying multiple items

[atyemail]

This is my Code, and i have been trying to make thebutton so that it will automatically show everything from Mercury venus and etc and i have make it so that it show Mercury - Pluto in seperate lines but than i am not able to make it to show the name instead it only show String[]Array in every line any ideas how to fix it so that instead of string[]Array it will show each name correctly. Below is the picture attached as an example of how thefinal result will look like

Public Class Form1
 
    Private Sub btnShow_Click(sender As Object, e As EventArgs) Handles btnShow.Click
        'Number of planets before Pluto was "let go"
        Const intNUM_PLANETS As Integer = 9
        'Planet names
        Dim strArrayPlanetNames() As String =
        {"Mercury", "Venus", "Earth", "Mars", "Jupiter", "Saturn", "Uranus", "Neptune", "Pluto"}
        'diameter of each planet in miles
        Dim dblArrayPlanetSizes() As Double =
        {3031, 7521, 7926, 4223, 88846, 74898, 31763, 30800, 1430}
        strArrayPlanetNames = {"Mercury", "Venus", "Earth", "Mars", "Jupiter", "Saturn", "Uranus", "Neptune", "Pluto"}
 
        For intX = 0 To intNUM_PLANETS - 1
            'output name and size 
            lstPlanets.Items.Add(strArrayPlanetNames)
            'output bar chart on next line
        Next
    End Sub
 
End Class

Screenshot after button clicked.png

[Hack]

As your question deals with VB.NET rather than VB Classic I have moved your thread to the .NET forum section.

[Ron Weller]

Comments:

        'Planet names
        Dim strArrayPlanetNames() As String =
        {"Mercury", "Venus", "Earth", "Mars", "Jupiter", "Saturn", "Uranus", "Neptune", "Pluto"}
'
'Don't need this-->        strArrayPlanetNames = {"Mercury", "Venus", "Earth", "Mars", "Jupiter", "Saturn", "Uranus", "Neptune", "Pluto"}
'      
        For intX = 0 To intNUM_PLANETS - 1
            'output name and size 
 ' -->    lstPlanets.Items.Add(strArrayPlanetNames)  '<--  here you were showing the entire array, 9 times
            lstPlanets.Items.Add(strArrayPlanetNames(intX))  '<-- just show each array element
            'output bar chart on next line
        Next

Final Version:

Public Class Form1
 
    Private Sub btnShow_Click(sender As Object, e As EventArgs) Handles btnShow.Click
        'Number of planets before Pluto was "let go"
        Const intNUM_PLANETS As Integer = 9
        'Planet names
        Dim strArrayPlanetNames() As String =
        {"Mercury", "Venus", "Earth", "Mars", "Jupiter", "Saturn", "Uranus", "Neptune", "Pluto"}
        'diameter of each planet in miles
        Dim dblArrayPlanetSizes() As Double =
        {3031, 7521, 7926, 4223, 88846, 74898, 31763, 30800, 1430}
 
        For intX = 0 To intNUM_PLANETS - 1
            'output name and size 
            lstPlanets.Items.Add(strArrayPlanetNames(intX))
            'output bar chart on next line
        Next
    End Sub
 
End Class