Delay 함수

    Public Sub Delay(ByVal MilliSecond As Integer)
        Dim _startsecond As Integer
        _startsecond = Environment.TickCount
        While (True)
            If (Environment.TickCount - _startsecond >= MilliSecond) Then
                Exit While
            End If
            Application.DoEvents()
        End While
    End Sub

 

   Public Sub delay(ByVal MilliSecond As Double)
        Dim delayTime As Date = Now.AddSeconds(MilliSecond / 1000)
        Do Until Now > delayTime
            Application.DoEvents()
        Loop
    End Sub