for each ele as control in me.controls
If TypeOf ele is checkbox Then
cuenta+=1
if cuenta>5 then
msgbox("No se puede seleccionar más de 5 elementos")
checkboxactual.checked=false'quizas funcione con e cancel o parecido
end if
end if
next
for each ele as control in me.controls
If TypeOf ele is checkbox Then