Public num As IntegerPrivate Sub Form_Load()num = 0End SubPrivate Sub Timer1_Timer()num = num + 1If num = 3600 Then'el proceso que quieres hacerEnd IfEnd Sub