1、改为单选框2、窗口全局事件CheckedChanged事件,把复选框都放入一个panel里面If e.Sender.checked = True
For Each c As WinForm.Control In e.Form.Controls("panel1").Children
If c.Name <> e.Sender.name AndAlso Typeof c Is WinForm.CheckBox Then
Dim t As WinForm.CheckBox= c
t.Checked = False
End If
Next
End If