Dim acroforms As Obj = pdfdoc.GetAcroForm()
If acroforms IsNot Nothing And acroforms.IsDict() Then
Dim fields As Obj = acroforms.FindObj("Forms")
If fields IsNot Nothing And fields.IsArray() Then
For index As Integer = 1 To fields.Size()
Dim o As Obj = fields.GetAt(index)
If o.GetObjNum() = sig_field_object_num Then
fields.EraseAt(index)
break