Friend Overridable Property Label2 As Label Get Return Me._Label2 End Get Set(ByVal WithEventsValue As Label) Me._Label2 = WithEventsValue End Set End Property _ Friend Overridable Sub set_Label2(ByVal WithEventsValue As Label) Me._Label2 = WithEventsValue End Sub _ Friend Overridable Function get_Label2() As Label Return Me._Label2 End Function Friend Overridable Property Label3 As Label Get Return Me._Label3 End Get Set(ByVal WithEventsValue As Label) Me._Label3 = WithEventsValue End Set End Property _ Friend Overridable Sub set_Label3(ByVal WithEventsValue As Label) Me._Label3 = WithEventsValue End Sub _ Friend Overridable Function get_Label3() As Label Return Me._Label3 End Function Friend Overridable Property lbltotal As Label Get Return Me._lbltotal End Get Set(ByVal WithEventsValue As Label) Me._lbltotal = WithEventsValue End Set End Property _ Friend Overridable Sub set_lbltotal(ByVal WithEventsValue As Label) Me._lbltotal = WithEventsValue End Sub _ Friend Overridable Function get_lbltotal() As Label Return Me._lbltotal End Function Friend Overridable Property lbltotaldue As Label Get Return Me._lbltotaldue End Get Set(ByVal WithEventsValue As Label) Me._lbltotaldue = WithEventsValue End Set End Property _ Friend Overridable Sub set_lbltotaldue(ByVal WithEventsValue As Label) Me._lbltotaldue = WithEventsValue End Sub _ Friend Overridable Function get_lbltotaldue() As Label Return Me._lbltotaldue End Function Friend Overridable Property txtConct As TextBox Get Return Me._txtConct End Get Set(ByVal WithEventsValue As TextBox) Me._txtConct = WithEventsValue End Set End Property _ Friend Overridable Sub set_txtConct(ByVal WithEventsValue As TextBox) Me._txtConct = WithEventsValue End Sub _ Friend Overridable Function get_txtConct() As TextBox Return Me._txtConct End Function Friend Overridable Property txtPrem As TextBox Get Return Me._txtPrem End Get Set(ByVal WithEventsValue As TextBox) Me._txtPrem = WithEventsValue End Set End Property _ Friend Overridable Sub set_txtPrem(ByVal WithEventsValue As TextBox) Me._txtPrem = WithEventsValue End Sub _ Friend Overridable Function get_txtPrem() As TextBox Return Me._txtPrem End Function Friend Overridable Property txtType As TextBox Get Return Me._txtType End Get Set(ByVal WithEventsValue As TextBox) If (Not Me._txtType Is Nothing) Then RemoveHandler Me._txtType.TextChanged, New EventHandler(AddressOf Me.txtType_TextChanged) End If Me._txtType = WithEventsValue If (Not Me._txtType Is Nothing) Then AddHandler Me._txtType.TextChanged, New EventHandler(AddressOf Me.txtType_TextChanged) End If End Set End Property _ Friend Overridable Sub set_txtType(ByVal WithEventsValue As TextBox) If (Not Me._txtType Is Nothing) Then RemoveHandler Me._txtType.TextChanged, New EventHandler(AddressOf Me.txtType_TextChanged) End If Me._txtType = WithEventsValue If (Not Me._txtType Is Nothing) Then AddHandler Me._txtType.TextChanged, New EventHandler(AddressOf Me.txtType_TextChanged) End If End Sub _ Friend Overridable Function get_txtType() As TextBox Return Me._txtType End Function