主题：我如何在窗口全局事件CheckChanged定义复选框勾选后不能再取消的效果

If TypeOf e.Sender Is WinForm.CheckBox Then 
    If not e.sender.Checked  Then
        e.sender.Checked = True
        msgbox("该车已经过磅,你无权取消")
    End If
End If