VB6 分钟级延迟函数分享（窗体不卡顿）

Private Declare Sub Sleep Lib "kernel32" (ByVal dwMilliseconds As Long)

Private Sub DelayMinutes(ByVal minutes As Integer)

    Dim endTime As Date

    endTime = DateAdd("n", minutes, Now)

    Do

        DoEvents ' 允许系统处理其他事件

        Sleep 100 ' 暂停100毫秒

    Loop While Now < endTime

    MsgBox "延迟已完成！"

End Sub

Private Sub Form_Load()

    DelayMinutes 3

End Sub

~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~

下面是 带剩余秒数提示的：

Private Declare Sub Sleep Lib "kernel32" (ByVal dwMilliseconds As Long)

Private Sub DelayMinutes(ByVal minutes As Integer)

    Dim endTime As Date

    endTime = DateAdd("n", minutes, Now)

    Do

        DoEvents ' 允许系统处理其他事件

        Sleep 100 ' 暂停100毫秒

    Loop While Now < endTime

    MsgBox "延迟已完成！"

End Sub

Private Sub Form_Load()

    DelayMinutes 3

End Sub