Private Sub btnContinue_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnContinue.Click
Dim lvi As ListViewItem = Nothing
Dim _optionsHTML As String = "<ul>"
Dim _options As String = ""
Dim i As Integer = 0
For Each lvi In lvCancellationOptions.Items
If lvi.Checked Then
_optionsHTML &= "<li>" & lvi.Text & "</li>"
_options &= lvi.Text & vbCrLf
i += 1
End If
Next
_optionsHTML &= "</ul>"
If (i = 0) Then
MessageBox.Show("You must select at least one cancellation option")
Else
RaiseEvent ContinueCancellation(True, _optionsHTML, _options)
Me.Close()
End If
End Sub