Private Sub cmdWait_Click()
 
  Dim t1 As Date
 
  t1 = Now
 
  cmdWait.Caption = "Waiting"
  Do
    DoEvents
  Loop Until DateDiff("s", t1, Now()) >= 5
  cmdWait.Caption = "Wait"
 
End Sub

Gruß
Dirk

--
?Get it right the first time