Veo que se corta el codigo aqui posteo el resto .:
Código vb:
Ver original'Funcion para cambiar el color del texto
'###########################################################
Private Sub Label14_Change()
If Label14.Caption = "ABIERTA" Then
Label14.ForeColor = vbGreen
ElseIf Label14.Caption = "CERRADA" Then
Label14.ForeColor = vbRed
Else
Label14.ForeColor = vbBlack
End If
End Sub
'Funcion para cambiar el color del texto
'###########################################################
Private Sub Label15_Change()
If Label15.Caption = "ABIERTA" Then
Label15.ForeColor = vbGreen
ElseIf Label15.Caption = "CERRADA" Then
Label15.ForeColor = vbRed
Else
Label15.ForeColor = vbBlack
End If
End Sub
'Funcion para cambiar el color del texto
'###########################################################
Private Sub Label16_Change()
If Label16.Caption = "ABIERTA" Then
Label16.ForeColor = vbGreen
ElseIf Label16.Caption = "CERRADA" Then
Label16.ForeColor = vbRed
Else
Label16.ForeColor = vbBlack
End If
End Sub