ActiveX Components. Manager of generators (VB)

'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