01.Public Class Meth
02. Public setCon as new Cont
03. Public Sub showDisplay(value as string)
04. nameInput.text = value
05. End Sub
06.
07. Public Class Cont
08. Protected Shared nameInput As textbox
09. Public Property setConCtrl As Textbox
10. Set(value As Textbox)
11. nameInput = value
12. End Set
13. Get
14. Return nameInput
15. End Get
16. End Property
17. End Class
18.
19.End Class
20.
21.
22.Public Class RUNFROM
23. Private Sub onLoad
24. Dim test As New Meth
25. test.setCon.setConCtrl = txtName
26. End Sub
27.End Class
