主题：错误提示次数问题

BeforeShowErrorMessage 事件

static ptime As Date = Nothing
static count As Integer = 0
Dim sp As TimeSpan = Date.now - ptime
If sp.TotalSeconds <= 1 Then
    count += 1
    If count > 3 Then
        e.cancel = True
    End If
End If
ptime = Date.now