Public Sub ControlColor(ByVal c As Control, ByVal back As Color, Optional _
   ByVal fore As Color = Color.Black)
        c.BackColor = back
        c.ForeColor = fore
    End Sub

Constant Expression is required

Gruss Caddy