Imports System.Runtime.InteropServices
 
<ComClass(Client.ClassId, Client.InterfaceId, Client.EventsId)>
Public Class Client
 
    Public Const ClassId As String = "283648B7-CB3D-4948-9156-AEEB46639272"
    Public Const InterfaceId As String = "123C6F20-F8E7-4411-BFD8-9C9DB222222C"
    Public Const EventsId As String = "4F92F99E-01BD-4A0E-9C3B-866B8EE8D53B"
 
    Private myDatabase As New Database
 
    Public Sub New()
        MyBase.New()
    End Sub
 
    <ComVisible(True)> _
    Public Function connect() As String
        Return "Connect"
    End Function
 
    <ComVisible(True)> _
    Public Function close() As String
        Return "Closse"
    End Function
 
    <ComVisible(True)> _
     Public ReadOnly Property Database As Database
        Get
            Return myDatabase
        End Get
    End Property
 
 
End Class
 
Public Class Database
 
    Public Sub New()
 
    End Sub
 
    Public Function ccc() As String
        Return "CNN"
    End Function
 
End Class