主题：ListView中复选框

Dim lvw As WinForm.ListView = e.Form.Controls("ListView1")
Dim vls As String = ""
For Each vr As WinForm.ListViewRow In lvw.CheckedRows
    vls = vls & "," & vr("国家")
Next
vls = vls.Trim(",")
If vls > "" Then
    MessageBox.show("你选择的国家有:" & vls)
Else
    MessageBox.show("你并没有选择任何国家!" )
End If