Lad en hændelse ske efter et tidsinterval

først smider du en textbox (text1) på samt en ok knap (den kalder vi for knap) og til sidst en timer som du i dens enabled felt sætter til "false"

i onclick eventen for oknappen skriver du :
tid = val(text1.text)
tid = (tid * 60000) ' for at få det i minutter.
timer1.enabled = true

i eventen for timeren skriver du så :

print "Whahuuuu så er tiden gået :)"
timer1.enabled = false

70 pts er alt for meget... 30 er længe nok

Du kan max smide 2^8 ind i en timer i VB! Det du skal gøre er at gemme antallet af minutter * 2 i timerens Tag og sætte Timer.Interval til 30000!
Hver gang duy får et timer event tæller du Tag en ned! Når Tag er nået til NUL er det tid til at gå i aktion!

Private mlMin as Long

Private Sub SetTime(tid as long)
  //tid er i minutter
  mlMin = tid
  Timer1.Tag = tid*2
  Timer1.Interval = 30000
  timer1.Enabled = True

end sub

private sub Timer1_Timer()
  timer1.Tag = timer1.Tag -1
  if(timer1.Tag = 0) then
    MsgBox "Så er der gået " & mlMin & " minutter"
  end if 
end sub

//Nolle_K

man kan også lave det uden en timer, men den nolle_k har laver er sikkert beder til det ud skal bruge. :-)

Private Sub Command1_Click()
  Call PauseTimer(Val(Text1.Text))
  MsgBox "Så er der gået " & Val(Text1.Text) & " sec"
End Sub

Public Function PauseTimer(sec As Long)
TimNow = Timer
  Do
    DoEvents
  Loop Until Timer > TimNow + sec
End Function

jeg har desværre glemt at acceptere