Notes

Public Class Form1
' List to hold student records (for demonstration purposes)
Private studentRecords As New List(Of String)

' Add button click event
Private Sub ButtonAdd_Click(sender As Object, e As EventArgs) Handles Button1.Click
' Retrieve values from text boxes
Dim name As String = TextBox1.Text
Dim course As String = TextBox2.Text
Dim year As String = TextBox3.Text

' Validate input
If String.IsNullOrEmpty(name) OrElse String.IsNullOrEmpty(course) OrElse String.IsNullOrEmpty(year) Then
MessageBox.Show("Please fill in all fields.", "Input Error", MessageBoxButtons.OK, MessageBoxIcon.Error)
Return
End If

' Add the record to the list
Dim record As String = $"Name: {name}, Course: {course}, Year: {year}"
studentRecords.Add(record)

' Display a confirmation message
MessageBox.Show("Student record added.", "Success", MessageBoxButtons.OK, MessageBoxIcon.Information)

' Clear text boxes
TextBox1.Clear()
TextBox2.Clear()
TextBox3.Clear()
End Sub

' Display button click event
Private Sub ButtonDisplay_Click(sender As Object, e As EventArgs) Handles Button2.Click
' Check if there are any records
If studentRecords.Count = 0 Then
MessageBox.Show("No student records to display.", "Info", MessageBoxButtons.OK, MessageBoxIcon.Information)
Return
End If

' Concatenate all records into a single string
Dim displayMessage As String = String.Join(Environment.NewLine, studentRecords)

' Display all records in a message box
MessageBox.Show(displayMessage, "Student Records", MessageBoxButtons.OK, MessageBoxIcon.Information)
End Sub
End Class