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