Access.Form边界的VBA MouseDown / MouseUp事件？

Question

Access.Form的边框是否有VBA MouseDown和MouseUp事件？我想在用户开始调整Access.Form的大小之前捕获表单的维度（1），以及（2）在用户结束调整该表单之后，但没有得到数十到数百个Form.Resize事件在典型的调整大小动作期间被触发。

这是我目前的做法。

Public PrvInsHgt As Long
Public PrvInsWid As Long
Public LastResized As Double

Private Sub MyForm_Load()
  PrvInsHgt = Me.InsideHeight
  PrvInsWid = Me.InsideWidth
End Sub

Private Sub MyForm_Timer()
  If VBA.Timer - LastResized < 0.1 / 86400 Then Exit Sub
  If Me.InsideHeight = PrvInsHgt And Me.InsideWidth = PrvInsWid Then Exit Sub
  Debug.Print "H:" & Me.InsideHeight & " W:" & Me.InsideWidth
  PrvInsHgt = Me.InsideHeight
  PrvInsWid = Me.InsideWidth
  Me.TimerInterval = 0
End Sub

Private Sub MyForm_Resize()
  ' [insert code to resize the form's controls]
  LastResized = VBA.Timer
  Me.TimerInterval = 100
End Sub