Private Sub IAMExtensionPage_ApplyChanges(ByVal EditMode As PPEDITMODES)
On Error GoTo error_handler
Me.ValidateControls
If (Not m_Designer Is Nothing) And IAMExtensionPage_Visible Then
' Todo
' Add your code here
' Save value for Drawing Number
m_Designer.SetPropertyValue "", "DrawingNumber_BSTR", txtTextBox.Text
m_Designer.ApplyChanges EditMode
End If
Exit Sub
error_handler:
MsgBox caption & " ApplyChanges: " & Err.Description
End Sub
About accessing object properties
Accessing properties using the IASDocument interface