<ComVisible(True)>
Public Class CurrentFormBookingObj

    Public InsertionSets As ArrayList

    Public Sub New()
    InsertionSets = new InsertionSetCol()
        'InsertionSets = New ArrayList()
        InsertionSets.Add(New InsertionSet())
    End Sub

End Class


<ComVisible(True)>
Public Class InsertionSetCol
    Inherits CollectionBase

    Public Sub Add(ByVal obj As InsertionSet)
        List.Add(obj)
    End Sub

    Public Shadows ReadOnly Property Count() As Integer
        Get
            Return MyBase.Count
        End Get
    End Property

    Default Public ReadOnly Property Item(ByVal index As Integer) As InsertionSet
        Get
            Return CType(List.Item(index - 1), InsertionSet)
        End Get
    End Property

End Class


<ComVisible(True)>
Public Class InsertionSet

    Public handled As Boolean = False

End Class


<PermissionSet(SecurityAction.Demand, Name:="FullTrust")> _
<System.Runtime.InteropServices.ComVisibleAttribute(True)> _
Public Class Form2

    Public form As CurrentFormBookingObj = New CurrentFormBookingObj()

    Private Sub Form2Loaded(ByVal sender As Object, ByVal e As EventArgs) Handles Me.Load
        WebBrowser1.ObjectForScripting = Me
        WebBrowser1.ScriptErrorsSuppressed = True
    End Sub
End Class