Str = Str & Document.TestForm.Tests. Name & NL
Str = Str & " Элементов формы: "
Str = Str & Document.TestForm. Tests.Form.Elements.Length & NL
Str = Str & "Надпись: "
Str = Str & Document.TestForm.TestS.Value
x = MsgBox(str,0, "Test Button Properties")
End Sub
Sub TestBV_OnClick