Private Sub g_oAgt_OnUpdateContactCodes(ByRef LoginId As String, ByRef _
      AllowCollapse As Boolean, ByRef CollapseLevel As String, ByRef _
      ContactCodeRequired As Boolean, ByRef ContactCodes As VBA.Collection) _
      Handles g_oAgt.OnUpdateContactCodes
        Dim NbrOfCodes As Integer = ContactCodes.Count
        Dim Count As Integer = 0
        Dim YPos As Integer = 24
 
LoopCode:
        YPos = YPos + 22
        Count = Count + 1
        'MsgBox(CType(ContactCodes.Item(Count), ContactCode).CodeName)
 
        If CType(ContactCodes.Item(Count), ContactCode).ParentId = 0 Then
            Dim Label As System.Windows.Forms.Label
            Label = New System.Windows.Forms.Label
            Label.Text = CType(ContactCodes.Item(Count), ContactCode).CodeName
            Label.Location = New System.Drawing.Point(20, YPos)
            Label.Width = 300
            Form5.Controls.Add(Label)
        End If
 
        If CType(ContactCodes.Item(Count), ContactCode).Hidden = 1 Then
            GoTo LoopCode
        End If
 
        Dim btnYes As System.Windows.Forms.CheckBox
        ' Create control
        btnYes = New System.Windows.Forms.CheckBox()
        ' Set button properties
        btnYes.Text = CType(ContactCodes.Item(Count), ContactCode).CodeName
        btnYes.Location = New System.Drawing.Point(30, YPos)
        btnYes.Width = 300
        btnYes.Name = CType(ContactCodes.Item(Count), ContactCode).Id
        btnYes.Width = 350
 
        Form5.Controls.Add(btnYes)
        'Form5.Controls.Item(btnYes.Name).Enabled = False
 
        If Count = NbrOfCodes Then
 
            Return
        Else
            GoTo LoopCode
        End If
    End Sub