Private Sub Checkbox_Click(sender As Object, e As EventArgs)
  Dim mcb = DirectCast(sender, CheckBox)
  For Each cb in GroupBox1.Controls.OfType(Of CheckBox)
    If cb IsNot mcb Then
      cb.Enable = False
    End If
  Next
End Sub