Reloj fijo

[XYON126]

Hola erbuson!

Aqui posteo todo el codigo corregido, posiblemente sean varios post.

Un saludote y muchas gracias.

Código vb:

Option Explicit
 
Dim Londres As Date
Dim Nueva_York As Date
Dim Tokyo As Date
Dim Sidney As Date
Dim Madrid As Date
Dim Francfort As Date
Dim Zurich As Date
Dim Wellington As Date
Dim Toronto As Date
Dim Horario As Date
Dim dia As String
 
Dim DifLondres As Date
Dim DifNueva_York As Date
Dim DifTokyo As Date
Dim DifSidney As Date
Dim DifWellington As Date
Dim DifToronto As Date
'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
 

Efectivamente solo puedo postear 36 lineas por post, este es el primero.