Public Class Form1



    Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
        Dim a As Integer
        Dim student(5) As Integer
        For a = 1 To 5
            student(a) = InputBox("enter your value=")
        Next
        For a = 1 To 5
            ListBox1.Items.Add(student(a))


        Next
    End Sub
End Class