How to expose event handlers of the TextBox in a NumericUpDown?

Question

The NumericUpDown control contains a TextBox object that I have exposed by creating a class that inherits from NUD and references the TextBox as the second control in the Base class, like this:
Public Class clsNumericUpDownExt
Inherits NumericUpDown
Private TheTextBox As TextBox = MyBase.Controls(1)
Event NewLeave()
Public ReadOnly Property TextBox As TextBox
Get
Return TheTextBox
End Get
End Property
End Class
In the form, I instantiate an object from this class and display it in a tab control on the form, like this:
Public WithEvents dynNudTime As clsNumericUpDownExt = New clsNumericUpDownExt
'In the form's Load event:
Dim loc As System.Drawing.Point = New System.Drawing.Point(177, 19)
Dim fnt As System.Drawing.Font = New System.Drawing.Font("Microsoft Sans Serif", 30)
tabTimer.Controls.Add(dynNudTime)
With dynNudTime
.Width = 240
.Location = loc
.Font = fnt
.Maximum = 86399
.Visible = True
End With
Since it was declared WithEvents, I can see the event handlers of the NUD base class of the object in the form, so I can code an action for, let's say, the ValueChanged event. Is there a way to see the event handlers of the TextBox, so that I can code an
action for, say, the TextChanged event?
Thanks!

Answer 1

 Well, you could add a public event to the NUD class and raise the event when the text of the textbox is changed.  You would need to do this for each event you want to handle from the textbox.
 In this example i added a custom event that will pass the NUD control as the sender and the Text as the 2nd argument.
Public Class Form1
Private WithEvents nud As New clsNumericUpDownExt
Private Sub Form1_Load(ByVal sender As Object, ByVal e As System.EventArgs) Handles Me.Load
Me.Controls.Add(nud)
End Sub
Private Sub nud_TBoxTextChanged(ByVal sender As Object, ByVal TheText As String) Handles nud.TBoxTextChanged
Me.Text = TheText
End Sub
End Class
Public Class clsNumericUpDownExt
Inherits NumericUpDown
Public Event TBoxTextChanged(ByVal sender As Object, ByVal TheText As String)
Private WithEvents TheTextBox As TextBox = CType(MyBase.Controls(1), Windows.Forms.TextBox)
Private Sub TheTextBox_TextChanged(ByVal sender As Object, ByVal e As System.EventArgs) Handles TheTextBox.TextChanged
RaiseEvent TBoxTextChanged(Me, TheTextBox.Text)
End Sub
End Class
If you say it can`t be done then i`ll try it