Time-transmitted function DELAY () using the Kernel32 API function.
Using this function, you need to delay the wishes of a few seconds when you start the form, and it will not be much different from the dynamic effect due to the performance of the machine, because it is time interval. (Of course, if it is still 486, it is not good to say), the accuracy is about 0.05 seconds.
Public Declare Function GettickCount LIB "Kernel32" () as longconst ms_delay = 50 '20fps
Public Function Delay (Times As Single) Dim mblnRunning As BooleanDim mlngTimer As LongDim caculate As SinglemblnRunning = Truecaculate = 0Do While mblnRunning And caculate
