Reloj fijo

[XYON126]

y mas codigo .:

Código vb:

'Funcion para cambiar el color del texto
'###########################################################
Private Sub Label17_Change()
  If Label17.Caption = "ABIERTA" Then
    Label17.ForeColor = vbGreen
  ElseIf Label17.Caption = "CERRADA" Then
    Label17.ForeColor = vbRed
  Else
    Label17.ForeColor = vbBlack
  End If
End Sub
'Funcion para cambiar el color del texto
'###########################################################
Private Sub Label18_Change()
  If Label18.Caption = "ABIERTA" Then
    Label18.ForeColor = vbGreen
  ElseIf Label18.Caption = "CERRADA" Then
    Label18.ForeColor = vbRed
  Else
    Label18.ForeColor = vbBlack
  End If
End Sub
 
Private Sub Form_Load()
 
'Diferencia horaria en menos
 
DifLondres = "1:00"
DifNueva_York = "6:00"
DifToronto = "6:00"