Dim s As String For Each x As WinForm.Control In e.Form.Controls If Typeof x Is WinForm.CheckBox Then Dim c As WinForm.CheckBox = x If c.Checked = True s = s & " " & c.text End If End If Next If s = "" Then MessageBox.Show("你没有做出选择") Else MessageBox.Show("你选择了 " & s) End If