VB.NET

delay 적용

2020.03.25

* Private Sub wait(ByVal seconds As Integer)
For i As Integer = 0 To seconds * 100
System.Threading.Thread.Sleep(10)
Application.DoEvents()
Next
End Sub 

    Public Sub Delay(ByVal Second As Integer) '딜레이

        Dim _startsecond As Integer

        _startsecond = Environment.TickCount

        While (True)

            If (Environment.TickCount - _startsecond >= Second * 1000) Then

                Exit While

            End If

            Application.DoEvents()

        End While

    End Sub