Como guardar un codigo largo en una cosntante?

antes que todo quisiera disculparme con ustedes amigos del foro por el post que coloque la vez pasada y no fue mi intencion hacerlos sentir como mis "sirvientes" como dice anhur (pero tiene razon). :-[

buen ahora vamos al grano.
tengo un codigo largo que quisiera que varios picturebox tuviesen en mi aplicacion. pero creo que seria mucha flojera y ademas inesesario copiar todo el codigo en cada uno de los controles.

quisiera saber como encapsular todo el codigo con el nombre de una sola variable.
no me digan que no e buscado en el foro por que lo hize y encontre fue puros tutoriales de constantes variables y tipos de datos que o me ayudan a hacer mi tarea.

el codigo seria este:

Picture1.BackColor = &H8000000E
Label1.BackColor = &H8000000E
Label1.ForeColor = &H0&
Picture1.BorderStyle = 0

Picture2.BackColor = &H8000000E
Label2.BackColor = &H8000000E
Label2.ForeColor = &H0&
Picture2.BorderStyle = 0

Picture3.BackColor = &H8000000E
Label3.BackColor = &H8000000E
Label3.ForeColor = &H0&
Picture3.BorderStyle = 0

Picture4.BackColor = &H8000000E
Label4.BackColor = &H8000000E
Label4.ForeColor = &H0&
Picture4.BorderStyle = 0

Picture5.BackColor = &H8000000E
Label5.BackColor = &H8000000E
Label5.ForeColor = &H0&
Picture5.BorderStyle = 0

Picture6.BackColor = &H8000000E
Label6.BackColor = &H8000000E
Label6.ForeColor = &H0&
Picture6.BorderStyle = 0

Picture7.BackColor = &H8000000E
Label7.BackColor = &H8000000E
Label7.ForeColor = &H0&
Picture7.BorderStyle = 0

Picture8.BackColor = &H8000000E
Label8.BackColor = &H8000000E
Label8.ForeColor = &H0&
Picture8.BorderStyle = 0

yo trate de hacerlo pero no pude por favor si alguien me ayudara le agradedceria mucisimo.

for i=0 to No. de controles que tienes
Picture.item(i).BackColor = &H8000000E
Label.item(i).BackColor = &H8000000E
Label.item(i).ForeColor = &H0&
Picture.item(i).BorderStyle = 0
next