MsgBox med nedtælling.

Ja - brug en timer...

Og lad være med at bruge en msgbox, lav din egen lille form der ligner en msgbox hvor du så har en label der tæller ned...

Hej.

Jeg har lavet sådan en med en bar der viser status.  Den bruges i demo-versioner af mine programmer.  Til inspiration.

Dim bar, vent As Integer
Private Sub Form_Activate()
a = 0
bar = 3200
End Sub

Private Sub Form_Click()
  If vent = 0 Then vent = 1 Else vent = 0
End Sub

Private Sub Form_Load()
  frmdemo.Left = (Screen.Width - frmdemo.Width) \ 2
  frmdemo.Top = (Screen.Height - frmdemo.Height) \ 2
  bar = 3200
End Sub

Private Sub labnu_Click()
  End
End Sub

Private Sub timerluk_Timer()
  If frmdemo.Visible = False Then Exit Sub
  If vent = 1 Then Exit Sub
  a = a + 1
  If bar > 30 Then bar = bar - 30
  labbar1.Width = bar
  labbar1.Caption = Int(bar / 300) & " sek."
  If a = 30 Then labhoer.Visible = True
  If a = 100 Then End
End Sub

M.v.h.  Jørn

se her: http://www.mvps.org/vbnet/code/hooks/messageboxhooktimer.htm

sjh: Har du nogensinde givet et svar med mindre end 300 linier kode med API-kald. He he ;o)

martin_moth < Ja det tror jeg da nok.. :D

til gengæld har han som regel altid en løsning hehehe