const SEGUNDOS_HORA=3600
const SEGUNDOS_MINUTO=60

dim a as long   
dim horas as integer
dim minutos as integer
dim segundos as integer

....
'aki puedes crearte una función que devuelva el valor  del finaly  listo
a=total segundos
'sacamos las horas
horas=a / SEGUNDOS_HORA
a=a MOD horas
'sacamos los minutos
minutos=a/SEGUNDOS_MINUTO
a=a MOD minutos
'sacamos los segundos
segundos=a

text1.text=format(horas,"00") & format(minutos,"00") & format(segundos,"00")

'el timer tiene k tener interval =1000 y enabled=true
'variables globales
dim veces as int   'veces k se dispara el timer
const segundoshora=3600

Private Sub Timer1_Timer()
  if  veces=segundoshora then
      Shell "c:\tuarchivo.ext"
       veces=0
  else
     veces=veces+1
   endif
End Sub

//la función le envias la id del curso lo que hace es comprobar si existen plazas libres con lo cual disminuye en una (devolviendo TRUE) o FALSE si no quedan plazas para ese curso
function reserva_plaza($id){
   //nos conectamos a la bd

   //pedimos las plazas libres del curso, la sentencia quedaría así...
   "select plibres from tablita_cursos where id=$id limit 1"
   //tras recoger el dato
//aqui iria si quedan plazas
 if($plibres>0){
  //insertamos al nuevo que quiere cursar el curso en una tabla de usuarios o lo que quieras...

   //actualizamos el número de vacantes libres la sentencia  será de éste tipo...

"update tablita_cursos set plibres=plibres-1 where id=$id limit 1"
  //aqui devolveriamos la respuesta... return lo k la sentencia nos devuelva

  }else{
     
      return FALSE
}


//se puede quitar el if y poner en la sentencia otra condición...
"update tablita_cursos set plibres=plibres-1 where id=$id and plibres>0 limit 1"

}