VB.NET Poczekaj 1 sekundę

Threading.Thread.Sleep(500)
Curious Cassowary