无聊闲逛，发现一个能依据光标自动关闭窗体的示例，分享给大家。

代码如下:

Private Sub Form_Timer()
    '记得先配置计时器时间间隔
    Dim MyFormCoor            As RECT
    Dim CusrorPos             As POINTAPI

    Call GetWindowRect(Me.Hwnd, MyFormCoor)
    Call GetCursorPos(CusrorPos)

    If (CusrorPos.x < MyFormCoor.Left) _
       Or (CusrorPos.x > MyFormCoor.Right) _
       Or (CusrorPos.y > MyFormCoor.Bottom) _
       Or (CusrorPos.y < MyFormCoor.Top) _
       Then DoCmd.Close acForm, Me.Name
End Sub

图   示:

附   件:

点击下载此附件

示例演示: