1.No XControl XC_Bomba, selecione o evento CustomConfig e insira o script a seguir.

'Nome da bomba
Nome = InputBox("Digite o nome da Bomba:")
If Nome = "" Then Exit Sub
 
'Cria o objeto XO_Bomba
Set obj = Application.GetObject("Dados.Bombas")._
  AddObject("XO_Bomba", True, Nome)
obj.DocString = InputBox("Digite uma descrição para a Bomba:")
 
'Associa o XControl ao XObject
Fonte = obj.PathName

2.Salve as modificações e registre a biblioteca.

3.Na Tela, clique com o botão direito do mouse em uma bomba e selecione a opção Configurar.