Hola compañero:
Creo que una manera de simplificar loas ajustes de Color, sería por ejemplo creando una función que recibe un Label y en función de su Caption ajusta el Color:
Código vb:
Ver originalPrivate Sub AjustaColor(Letrero As Label)
' Función para unificar y simplificar
If Letrero.Caption = "ABIERTA" Then
Letrero.ForeColor = vbGreen
ElseIf Letrero.Caption = "CERRADA" Then
Letrero.ForeColor = vbRed
Else
Letrero.ForeColor = vbBlack
End If
End Sub
Private Sub Label17_Change()
AjustaColor label17
End Sub
Private Sub Label18_Change()
AjustaColor label18
End Sub
De este modo, te evitas muchas sentencias repetidas y si por casualidad decidieras algun cambio adicional, como por ejemplo poner en Negrita, Itálica, etc, con efectuar un ligero cambio en la Rutina AjustaColor, cambias todo el programa.
Saludos