You need first to create the method, and then to add it to the property tab to create a button for calling the dialog.
Sub %Method%(obj)
' Show custom dialog for advanced extended attributes
Dim dlg
Set dlg = obj.CreateCustomDialog("%CurrentTargetCode%.Advanced Teradata Attributes")
If not dlg is Nothing Then
dlg.ShowDialog()
End If
End Sub