Pausa in VB 2010

 
Semplice pausa in Visual Basic

 Private Sub Pausa()
        Dim OrarioFinePausa As Date = Date.Now.AddMilliseconds(1000) 'un secondo
        Do Until Date.Now > OrarioFinePausa
            Application.DoEvents()
        Loop

    End Sub

per richiamare la pausa      call Pausa()