Public Sub New()

MyBase.New()

'This call is required by the Component Designer.

        InitializeComponent()

        InstanceID = NextInstanceID

        NextInstanceID += 1

        ClassInstanceCount += 1

End Sub