expression.AutoExpand As AutoExpand object
where expression is a variable that represents a Productivity Object
expression.AutoExpand As AutoExpand object
Sub AddEntryToAutoExpand() Dim auto As AutoExpand 'Get the autoExpand object Set auto = ThisIbmTerminal.Productivity.AutoExpand If auto.ContainsEntry("hcdt") = False Then 'Add an Auto Expand definition entry auto.AddEntry "hcdt", "Hydrochlorothiazide" End If End Sub