Delay in VB.NET

form.vb

Private Sub delay(ByVal interval As Integer)
    Dim sw As New Stopwatch
    sw.Start()
    Do While sw.ElapsedMilliseconds < interval
        Application.DoEvents()
    Loop
    sw.Stop()
End Sub