Private Sub button1_Click(ByVal sender As Object, ByVal e As System.EventArgs) Handles button1.Click Dim mre As New ManualResetEvent(False) Dim ts As New TimeSpan(0, 0, 0, 3, 0) label1.Text = "Várakozás ettől: " + DateTime.Now.ToString() + " eddig: " + (DateTime.Now.AddSeconds(3)).ToString() label1.Update() mre.WaitOne(ts, False) label1.Text = "Az idő letelt" End Sub 'button1_Click