Te sirve esto?:
Public Sub CambiarColor(ByVal boton As Button, ByVal color_boton As System.Drawing.Color)
boton.BackColor = color_boton
End Sub
Esto lo pones en un módulo,form o clase y para usarlo solamente tienes que hacer esto:
CambiarColor(nombre_boton,color_boton)
Y puedes cambiar en el Sub la propiedad boton de Button a Label o al control que quieras