主题：发邮件间隔时间求助

代码如下，因为邮箱限制的问题，导致只能发一封，如何在代码里加入等待时间呢？

Dim sendmail As String = e.Form.Controls("发件箱选择").Text
Dim title As String = e.Form.Controls("标题内容").Text
Dim nn As String = e.Form.Controls("正文内容").Text
Dim dr As DataRow = DataTables("发件箱表").Find("发件人地址 = '" & sendmail & "'")
Dim sp As New System.Net.Mail.SmtpClient(dr("smtp"),25)
sp.Credentials = New System.Net.NetworkCredential(dr("帐号"),dr("密码"))
'创建邮件
Dim mail As New System.Net.Mail.MailMessage()
'邮件主题
For Each r As DataRow In DataTables("收件人列表").DataRows
    mail.Subject = title & r("姓名")
    '主题编码
    mail.SubjectEncoding = System.Text.Encoding.GetEncoding("GB2312")
    '邮件正文件编码
    mail.BodyEncoding = System.Text.Encoding.GetEncoding("GB2312")
    '发件人邮箱
    mail.From = New System.Net.Mail.MailAddress(sendmail)
    '邮件优先级
    mail.Priority = System.Net.Mail.MailPriority.Normal
    'HTML格式的邮件,为false则发送纯文本邮箱
    mail.IsBodyHtml = True
    '邮件内容
    mail.Body = nn
    '添加收件人,如果有多个,可以多次添加
    mail.To.Add(r("邮件地址"))
    '定义附件,参数为附件文件名,包含路径,推荐使用绝对路径
    '如果不需要附件,下面三行可以不要
    'Dim a As New System.Net.Mail.Attachment("附件文件路径")
    '附件文件名,用于收件人收到附件时显示的名称
    'a.Name = "附件文件名"        '加入附件,可以多次添加
    'mail.Attachments.Add(a)'发送邮件
    Try
        sp.Send(mail)
        MessageBox.Show("发送成功")
        Catch
        MessageBox.Show("发送失败")
    Finally
        mail.Dispose()
    End Try
Next