haber si me ayudan con esto d sumar horas, tomo el tiempo del sistema y le sumo por decir 1 hora para que ejecute algo y bueno lo primero que se me ocurrio hacer fue lo siguiente:

Dim h, m, s As Integer
Dim h2, m2, s2 As Integer
Private Sub Timer1_Timer()
hora.Caption = Time$
End Sub
 
Private Sub Command1_Click()
 
h = Val(Left(hora.Caption, 2))
m = Val(Mid(hora.Caption, 4, 2))
s = Val(Right(hora.Caption, 2))
 
h2 = Val(Left(hora2.Text, 2))
m2 = Val(Mid(hora2.Text, 4, 2))
s2 = Val(Right(hora2.Text, 2))
 
kk = Format(h + h2 & ":" & m + m2 & ":" & s + s2)
 
End Sub
 

esta algo chapusero ... jeje haber si me dan una idea de como hacer para que al sumarle mas horas no sobrepase de las 24 horas.