VB Code:
Private Sub btnWhile_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnWhile.Click
Dim sbMessage As New System.Text.StringBuilder
Dim liTemp As ListViewItem
If lstParts.SelectedItems.Count > 0 Then
sbMessage.Append("This is a Do While loop and you chose the following items:").Append(vbCrLf)
For Each liTemp In lstParts.Items
If liTemp.Selected = True Then sbMessage.Append(liTemp.Text).Append(vbCrLf)
Next
txtLoop.Text = (sbMessage.ToString)
Else
MessageBox.Show("You did not select any items", "Error", MessageBoxButtons.OK, MessageBoxIcon.Error)
Exit Sub
End If
End Sub