Dim strAmendedRecord As String = "" For N As Integer = 1 To 5 Dim txtBoxN As TextBox = Me.Controls.Find("txtBox" & N, True).FirstOrDefault If Not IsNothing(txtBoxN) Then strAmendedRecord += txtBoxN.Text & (",") End If Next MsgBox(strAmendedRecord) ListBox1.SelectedIndex = ListBox1.SelectedIndex - 1 ListBox1.Items.RemoveAt(ListBox1.SelectedIndex - 1) ListBox1.Items.Add(ListBox1.SelectedIndex + 1) Dim data As String = "" For Each item In ListBox1.Items data &= item.ToString() & vbNewLine Next
var
This content, along with any associated source code and files, is licensed under The Code Project Open License (CPOL)