espere em vb

Imports System.Threading

Module Module1
    Sub Main(ByVal args As String())
        Dim ts As TimeSpan
        
        ts = New TimeSpan(0, 0, 1.5)
        Console.WriteLine("Waiting for 1.5 seconds...")
        Thread.Sleep(ts)    'Pause for duration specified in ts
        
        ts = New TimeSpan(0, 0, 4)
        Console.WriteLine("Waiting for 4 seconds...")
        Thread.Sleep(ts)    'Pause for duration specified in ts
    End Sub
End Module
ALeonidou