问题一，

sj = sj.Trim(",")
        mail.To.Add(sj)
        Try
            smtp.Send(mail)
            e.Form.baseform.Close
            e.Form.baseform.opacity = 0
            Result = MessageBox.Show("邮件发送成功.如果未收到邮件,请至垃圾邮箱确认是否被当成垃圾邮件.","小慧温馨提示",MessageBoxButtons.OK)
            Catch
            If kii = drs.count - 1 Then
                \'MessageBox.Show(100)
                Dim bt3 As WinForm.Button = Forms("APQP邮件发送窗口").Controls("Button3")
                bt3.PerformClick()
                \'MessageBox.Show(200)
            End If
           
        Finally
            mail.Dispose()
        End Try
        If Result = DialogResult.OK Then
            e.Form.Close()
            Dim r As Row = Tables("APQP发送邮件记录").AddNew()
            r("时间") = Date.Now

end if

此主题相关图片如下：2222.png

问题二：MessageBox.Show弹窗偶发被窗口盖住，一定要通知任务管理器才弹到最前面，请问要怎么才能弹到最前面？