Dim st As New Stopwatch()
st.start()
while(st.ElapsedMilliseconds < 5000 And myBreak))
 
End While
 
Private myBreak As Boolen = True
Private Sub frmForm1_KeyPress(ByVal sender As System.Object, ByVal e As _
  System.Windows.Forms.KeyPressEventArgs) Handles MyBase.KeyPress
 
        myBreak = False
 
    End Sub