Reloj fijo

[XYON126]

Veo que se corta el codigo aqui posteo el resto .:

Código vb:

'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