'sample of work with ActiveX component 'IBPSamples.TIBGenManager'
'1 download _ibp_sample_obj.dll from www.ibprovider.com
'2 execute: regsvr32 _ibp_sample_obj.dll
'3 add in your VB-project the reference to 'LCPI - IBProvider Samples' library

Sub sample_9_1()
 Dim cn      As New ADODB.Connection
 Dim gen_mng As New IBPSamples.TIBGenManager
 
 cn.Provider = "LCPI.IBProvider"
 cn.Open "main:e:\database\employee.gdb", "gamer", "vermut"
 
 cn.BeginTrans
 
 gen_mng.Connection = cn
 
 'printing of all generators
 Dim gen  As IBPSamples.TIBGenerator
 Dim s    As String
 
 For Each gen In gen_mng
  If gen.IsSystem Then s = " - System" Else s = " - User"
 
  Debug.Print gen.Name & "=" & CStr(gen.Value) & s
 Next gen
 
 'increment all USER-generators
 For Each gen In gen_mng
 
  If Not gen.IsSystem Then
   Call gen.GenID(1)
   Debug.Print gen.Name & "=" & CStr(gen.Value)
  End If
  
 Next gen
 
 'create NEW generator and assign it initial value
 Set gen = gen_mng.Add("MY_NEW_GENERATOR")
 gen.Value = 200
 
 Debug.Print gen.Name & "=" & CStr(gen.GenID(11))
  
 'remove NEW generator
 gen_mng.Remove (gen.Name)

 cn.CommitTrans
End Sub 'sample_9_1