Public Function fnTest() As String
    
End Function

Public Function fnTest() As String
    
End Function

Implements Class1
Implements Class2

Public Function Class1_fnTest() As String
    Class1_fnTest = "Test 1"
End Function

Public Function Class2_fnTest() As String
    Class2_fnTest = "Test 2"
End Function

Public Sub ImplementsTest()
    Dim cls1 As Class1
    Dim cls2 As Class2
    
    Set cls1 = New Class3
    Set cls2 = New Class3

    MsgBox cls1.fnTest
    MsgBox cls2.fnTest
End Sub

На сайте осуществляется обработка файлов cookie, необходимых для работы сайта, а также для анализа использования сайта и улучшения предоставляемых сервисов с использованием метрической программы Яндекс.Метрика.

Продолжая использовать сайт, вы даёте согласие на обработку файлов cookie, необходимых для работы сайта. Другие опции вы можете выбрать по своему усмотрению.

По нижеприведенным ссылкам мы можете ознакомиться с действующим на сайте пользовательским соглашением и политикой конфиденциальности.

Пользовательское соглашение
Политика конфиденциальности

	Необходимые cookie
	Cookie для сбора статистики
	Cookie для маркетинга и рекламы