Delay 함수

 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

출처: http://noljago.tistory.com/44 [놀자고 블로그]