新建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。