segundo..
Código vb:
Ver original'Funcion para cambiar el color del texto
'###########################################################
Private 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
'Funcion para activar el color del texto
'###########################################################
Public Function CloseOpen(HoraActual As Date) As String
If HoraActual > CDate("8:29:59") And HoraActual < CDate("17:29:59") Then
CloseOpen = "ABIERTA"
Else
CloseOpen = "CERRADA"
End If
'--------
If dia = "sábado" Or dia = "domingo" Then CloseOpen = "CERRADA"
'--------
End Function
'Funcion para cambiar el color del texto
'###########################################################
Private Sub Label10_Change()
AjustaColor Label10
End Sub