1.In XControl XC_Pump, select the CustomConfig event and insert the next script.

'Pump's name
PumpName = InputBox("Type a name for the Pump:")
If PumpName = "" Then Exit Sub
 
'Create an XO_Pump object
Set obj = Application.GetObject("Data.Pumps")._
  AddObject("XO_Pump", True, PumpName)
obj.DocString = InputBox("Type a description for this Pump:")
 
'Link the XControl to the XObject
Source = obj.PathName

2.Save these changes and register the library.

3.On the Screen, right-click a pump and select the Configure option.