'Объявлено в модуле
Option Explicit
Public Type MyType1
    data As String
    leng As Integer
End Type

' Прописано на форме
Public Function MyFunc1(par1 As String, par2 As Integer) As MyType1
Dim res As MyType1
    res.data = par1
    res.leng = par2
MyFunc1 = res
End Function

Private Sub Command1_Click()
Dim tmp As MyType1
    tmp = MyFunc1("строка",  8 )
    MsgBox tmp
End Sub

Private Sub Command1_Click()
Dim tmp As MyType1
Dim obj as New MyClass

    tmp = obj.MyFunc1("строка",  8 )
    MsgBox tmp
End Sub

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

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

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

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

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