checkbox como recorrerlos

Necesito saber como recorrer una lista de controles
checkbox
que tienen como nombres correlativos checkbox1 a
checbox12
y por cada uno que este en estado checked mostrar un
msgbox con la propiedad text de cada checkbox.

yo tengo algo hecho pero no me sale si alguien me puede
ayudar le agradecere.

-
Dim sql_actividades As String = "select * from
ecomm_actividades"
Dim cmd_actividades As OdbcCommand = New
OdbcCommand(sql_actividades, cn)
Dim dr_actividades As OdbcDataReader
Try
cn.Open()
dr_actividades = cmd_actividades.ExecuteReader
While dr_actividades.Read
If (checkbox1.Checked) Then
MsgBox(checkbox1.Text)
End If
End While
cn.Close()
Catch ex As Exception
MsgBox(ex.Message)
End Try