Notes

ass Form1
' Create a new ArrayList to store student information
Private studentList As New ArrayList()

Private Sub btnAdd_Click(sender As Object, e As EventArgs) Handles btnAdd.Click
' Retrieve the information entered in the text boxes
Dim name As String = TextBox1.Text
Dim course As String = TextBox2.Text
Dim year As String = TextBox3.Text

' Construct a string with the student information
Dim studentInfo As String = String.Format("{0,-20} {1,-20} {2,-10}", name, course, year)

' Add the student information to the ArrayList
studentList.Add(studentInfo)

' Show a message indicating successful addition
MessageBox.Show("Successfully added")
End Sub

Private Sub btnDisplay_Click(sender As Object, e As EventArgs) Handles btnDisplay.Click
' Check if there are any entries in the ArrayList
If studentList.Count = 0 Then
MessageBox.Show("No student information to display.")
Return
End If

' Create the header for the display
Dim header As String = String.Format("{0,-20} {1,-20} {2,-10}", "Name", "Course", "Year")
Dim separator As String = New String("-"c, 50) ' To separate the header from the data

' Construct the message to display all student information with alignment
Dim message As String = header & Environment.NewLine & separator & Environment.NewLine & String.Join(Environment.NewLine, studentList.ToArray())

' Show the message box with all student information
MessageBox.Show(message, "Student Information")
End Sub
End Class