Function ON_Create(inBLOB)
' Dim count
' Dim c
' Dim i
' Dim s
' s=""
' count = self.COUNT
' i=0
' while i<count
'  set c=self.CONTROLS(i)
'  if (c.HasProperty("Font")=True) then
'   c.Font.Charset = 204
'  end if
'  i=i+1
' wend 

ON_Create = "1"
end function


Function ON_Save(inBLOB)
' MsgBox "..."
 ON_Save = RetVal
end function

Function ON_SignDoc(inBLOB)
' MsgBox "..."
 ON_SignDoc = "1"
end function

Function ON_Delete(inBLOB)
' MsgBox "..."
 ON_Delete = "1"
end function
