Visual Basic

<ComClass(clsCom.ClassId, clsCom.InterfaceId, clsCom.EventsId)> _
Public Class clsCom

#Region "COM GUIDs"
     Public Const ClassId As String = "5f6daa91-519d-4db0-a71a-83a2cc5980cc"
    Public Const InterfaceId As String = "dfc3f83c-38a8-43e5-98d1-6914983a9df1"
    Public Const EventsId As String = "5ed06d44-d6b6-431b-8804-2ef2a0fb1b70"
#End Region

    Public Sub New()
        'MyBase.New()
    End Sub

    Public Shared Sub Main()
        
    End Sub

    Public Sub Amend(ByRef lPOSID As Integer)
        Dim clsentry As New clsEntry
        clsentry.Amend(lPOSID)

    End Sub

    Public Sub View(ByRef lPOSID As Integer)
        Dim clsentry As New clsEntry
        clsentry.View(lPOSID)

    End Sub

    Public Sub Add(ByRef lPOSID As Integer)
        Dim clsentry As New clsEntry
        clsentry.Add(lPOSID)
    End Sub

    Public Sub Delete(ByRef lPOSID As Integer)
        Dim clsentry As New clsEntry
        clsentry.Delete(lPOSID)
    End Sub

End Class

Option Explicit

Public placeOfSet As gdcPlaceOfSettlement.clsCom

Public Sub Main()
           
    Set placeOfSet = New gdcPlaceOfSettlement.clsCom
    placeOfSet.Amend (5654)
            
End Sub