'延时 Private Declare Sub Sleep Lib "kernel32" (ByVal dwMilliseconds As Long) Private Sub Form_Load() '延时1秒=1000毫秒 sleep(1000) End Sub
'延时 Private Declare Sub Sleep Lib "kernel32" (ByVal dwMilliseconds As Long) Private Sub Form_Load() '延时1秒=1000毫秒 sleep(1000) End Sub