Dos Timer y uno no funciona.

[XYON126]

Hola erbuson & pkj!

Muchas gracias por vuestra ayuda, por lo de varios timer como comentas erbuson lo he probado y si funciona aunque no es exactamente como tengo en mente, mi idea es en el formulario de la foto parte ya os es conocido, uso un timer para con el array que me ensenastes ha hacer, tengo el horario mundial de las ciudades especificadas; ahora el otro timer es para la otra parte del formulario la derecha, donde tengo un cronometro de cuentra atras que es de exactamente 121 horas y se inicia el domingo a las 22:00 Madrid o 16:00 New York y finaliza el viernes a las 23:00 Madrid o 17:00 New York, este cronometro lo que hace es avisarme cuanto tiempo me queda de mercado de divisas abierto para poder cerrar antes del cierre del mercado las operaciones o tradings que tenga abiertas y no tener que pagar Swap si es negativo, con esto mas o menos respondo a la idea que me esta dando pkj.
Lo malo de todo esto es que he probado dos timer en un programilla independiente y me funciona pero en este no y lo unico que he cambiado es poner la orden del command_Click en el Form_Load() toda la funcion o como funcion independiente y llamandola y no me funciona, ¿Porque razon me ocurre esto?

Aqui os posteo la foto del formulario y el codigo .:

Código vb:

Option Explicit
 
Dim Tiempo_restante As Date
Dim Horafinal As Date
Dim Horainicio As Date
Dim Fecha As Date
Dim Dia2 As Integer
 
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)
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 determinar Abierta/Cerrada
'################################################# ##########
' Ha sido modificada para recibir el Caption del Label que muestra el día y hora
Public Function CloseOpen(LabelHora As Label) As String
Dim Hora As Date, Dia As String
Hora = CDate(Right$(LabelHora.Caption, 8))
Dia = Left$(LabelHora.Caption, 3)
If Hora > CDate("8:29:59") And Hora < CDate("17:29:59") Then
CloseOpen = "ABIERTA"
Else
CloseOpen = "CERRADA"
End If
If Dia = "sáb" Or Dia = "dom" Then CloseOpen = "CERRADA"
If LabelHora.Index = 9 Then
    CloseOpen = "ABIERTA"
    If Dia = "vie" And Hora >= CDate("23:00:00") Then
    'If Dia = "dom" And Hora >= CDate("23:00:00") Then
    CloseOpen = "CERRADA"
    ElseIf Dia = "sáb" Or Dia = "dom" And Hora <= CDate("22:00:00") Then CloseOpen = "CERRADA"
    'ElseIf Dia = "dom" And Hora <= CDate("22:00:00") Then CloseOpen = "CERRADA"
    Else
    CloseOpen = "ABIERTA"
    End If
End If
End Function
 
Private Sub Command1_Click()
Dim Capital, Porcentaje, Riesgo, Volumen, Temp, Pips As Single
Capital = cmb_Capital
Porcentaje = cmb_riesgo
Pips = txt_pips
 
Riesgo = Capital * Porcentaje / 100
txt_pips = Pips
txt_riesgo = Riesgo
 
Temp = Riesgo / Pips
 
If Temp <= 0.1 Then
Volumen = 0.1
ElseIf Temp <= 0.2 Then
Volumen = 0.2
ElseIf Temp <= 0.3 Then
Volumen = 0.3
ElseIf Temp <= 0.4 Then
Volumen = 0.4
ElseIf Temp <= 0.5 Then
Volumen = 0.5
ElseIf Temp <= 1 Then
Volumen = 1
ElseIf Temp <= 2 Then
Volumen = 2
ElseIf Temp <= 3 Then
Volumen = 3
ElseIf Temp <= 4 Then
Volumen = 4
ElseIf Temp <= 5 Then
Volumen = 5
ElseIf Temp <= 6 Then
Volumen = 6
ElseIf Temp <= 7 Then
Volumen = 7
Else
Volumen = 8
End If
 
txt_volumen = Volumen
 
End Sub
 
'Funcion para cambiar el color del texto en cada Label
'################################################# ##########
Private Sub ComoEsta_Change(Index As Integer)
AjustaColor Comoesta(Index)
End Sub
 
'################################################# ##########
Private Sub HoraActual()
Dim Ahora As Date, Indice As Integer
Ahora = Now
PonerHora 0, Ahora, -1 'Londres
PonerHora 1, Ahora, -6 'NuevaYork
PonerHora 2, Ahora, 7 'Tokyo
PonerHora 3, Ahora, 8 'Sidney
PonerHora 4, Ahora, 0 'Madrid
PonerHora 5, Ahora, 0 'Francfort
PonerHora 6, Ahora, 0 'Zurich
PonerHora 7, Ahora, 10 'Wellington
PonerHora 8, Ahora, -6 'Toronto
PonerHora 9, Ahora, 0 'Madrid
PonerHora 10, Ahora, -6 'NuevaYork
End Sub
 
 
'################################################# ##########
Private Sub PonerHora(Indice As Integer, LaHora As Date, Diferencia As Integer)
' Pone la Hora en la Etiqueta correspondiente a Indice
QueHora(Indice) = Format(DateAdd("h", Diferencia, LaHora), "ddd hh:mm:ss")
' Después, la misma rutina, efectua el cambio de Abierta/Cerrada
Comoesta(Indice) = CloseOpen(QueHora(Indice))
End Sub
 
 
'################################################# ##########
Private Sub Timer1_Timer()
HoraActual
End Sub
'################################################# ##########
Private Sub Timer2_Timer()
 
'Contador regresivo
    Tiempo_restante = Horafinal - Time
    Label7.Caption = Format(Tiempo_restante, "hh:mm:ss")
 
End Sub
'################################################# ##########
Private Sub cronometro()
Horainicio = Time
    'el 1 indica los minutos desde los que comenzará la cuenta atrás.
    Horafinal = DateAdd("n", 1, Now)
    Timer2.Enabled = True
    Label7.Caption = Format(Tiempo_restante, "hh:mm:ss")
End Sub
'################################################# ##########
Private Sub Form_Load()
 
'Inicio función general relojes Bolsa.
HoraActual
Timer1.Interval = 1000
Timer1.Enabled = True
 
Fecha = Format(Date, "dd mmmm YYYY")
Label10 = Fecha
'Fin función general relojes Bolsa.
 
'Inicio función cronometro apertura-cierre Bolsa.
cronometro
 
Dia2 = DatePart("w", Fecha)
 
If Dia2 = "6" And Horainicio > CDate("22:59:59") Or Dia2 = "7" Or Dia2 = "1" And Horainicio > CDate("22:00:00") Then
Label13.Caption = "MERCADO CERRADO"
Else
Label13.Visible = False
Label8 = Dia2 - 7
 
End If
 
'Fin función cronometro apertura-cierre Bolsa.
 
End Sub
 

Un saludo