新建From1(窗体),新建Command1(按钮CommandButton),代码:
Private Declare Sub Sleep Lib "kernel32" (ByVal dwMilliseconds As Long) Private Sub Command1_Click() Call Sleep(3000) '延迟3秒 MsgBox "码农库真的好!" End Sub
点击按钮后3秒才去执行下方MsgBox。