ผมอยากเรียกใช้ class แบบนี้ต้องทำยังไงครับ clssA.clss = xx

Public Class Meth
  Public setCon as new Cont
  Public Sub showDisplay(value as string)
       nameInput.text = value
  End Sub

  Public Class Cont
  Protected Shared nameInput As textbox
  Public Property setConCtrl As Textbox
      Set(value As Textbox)
          nameInput = value
      End Set
      Get
          Return nameInput
      End Get
   End Property
   End Class

End Class


Public Class RUNFROM
 Private Sub onLoad
    Dim test As New Meth
    test.setCon.setConCtrl = txtName  '<--- ได้เป็นแบบนี้ครับ    
 End Sub
End Class