Private Sub Command1_Click()
Dim frm2 As New Form2
    frm2.myOpenarg1 = "123"
    frm2.LetOpenarg = "456"
    frm2.Show
End Sub

Public myOpenarg1 As String
Private myOpenarg2 As String

Private Sub Form_Load()
    Debug.Print Me.myOpenarg1
    Debug.Print myOpenarg2
End Sub

Public Property Let LetOpenarg(var As String)
    myOpenarg2 = var
End Property

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

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

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

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

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