Private Declare Function SendMessage Lib "user32" Alias "SendMessageA" (ByVal hWnd As Long, ByVal wMsg As Long, ByVal wParam As Long, lParam As Any) As Long
Private Const WM_CLOSE = &H10&


Public Function apiCloseForm(ByRef frm As Access.Form, Optional fQuiet As Boolean) As Long
'Remake of Graham Mandeno's function
'Returns 0 if successful, otherwise an error value
Dim lRet As Long, hWnd As Long, hWndTemp As Long
    
    On Error GoTo ProcErr
    hWnd = frm.hWnd
    Call SendMessage(hWnd, WM_CLOSE, 0&, 0&)
    
    On Error Resume Next
    hWndTemp = frm.hWnd
    If Err = 0 Then
        'A form wasn't closed
        On Error GoTo ProcErr
        Err.Raise vbObjectError + 10000, CurrentProject.Name, "Form " & frm.Name & " with a Caption '" & frm.Caption & "' may not be closed at this time."
    End If
    'A form was closed
    On Error GoTo 0
ProcEnd:
    If lRet = 0 Then Set frm = Nothing
    apiCloseForm = lRet
    Exit Function
ProcErr:
    If Not fQuiet Then MsgBox Err.Description, vbExclamation, "Cannot close form"
    lRet = Err
    Resume ProcEnd
End Function