Fusti, sin usar el método del Objeto Timer, podés implementar una función con el contador del sistema. TimeGetTime devuelve el tiempo en milisegundos desde que Windows se inicia. Podés reservar en una variable el valor de timeGetTime y luego toamr en otra variable un nuevo valor de timeGetTime, restando a esta última la primera y dividiendo su resultado por mil y luego multiplicándolo por 60, así te daría los minutos transcurridos entre un timeGetTime y otro.
Private Declare Function timeGetTime Lib "winmm.dll" () As Long
Este sería un ejemplo de timeGetTime que mide el tiempo desde que se abre el Form, hasta que se aprieta el botón command1. Si el tiempo son escasos segundos, al tartar de obtener minutos, devuelve un error en la ecuación.
Private Declare Function timeGetTime Lib "winmm.dll" () As Long Private time_Inicial As Long Private time_final As Long
Private Sub Command1_Click() time_final = timeGetTime MsgBox "Son en total " & ((time_final - time_Inicial) / 1000) / 60 & " Minutos" End Sub
Private Sub Form_Load() Me.AutoRedraw = True time_Inicial = timeGetTime Me.Print Time End Sub