请问怎样调用自定函数?谢谢!

下面的代码是在论坛里下载的关闭窗体时记住窗体位置的函数,我想在单击窗体中的某个控件时,记住当前窗体的位置,为什么在窗体控件的单击事件中写: SaveSet (Forms("窗体"))'会出错,谢谢指点

Public Function SaveSet(FormObject As Form) As Boolean

On Error GoTo Err_SaveSet

    Dim Rs As Recordset
    Dim L As Long, T As Long
    L = FormObject.WindowLeft
    T = FormObject.WindowTop
    Set Rs = CurrentDb.OpenRecordset("SELECT * FROM FormSetTable WHERE FormName='" & FormObject.Name & "';", dbOpenDynaset)
    If Rs.RecordCount = 0 Then
        Rs.AddNew
        Rs!FormName = FormObject.Name
    Else
        Rs.Edit
    End If
    Rs!LEFT = L
    Rs!TOP = T
    Rs.Update
    Rs.Close
    SaveSet = True

Exit_SaveSet:
    Exit Function
   
Err_SaveSet:
    SaveSet = False
    Resume Exit_SaveSet
   
End Function