Public Class MyTextBox Inherits System.Windows.Forms.TextBox Protected Overrides Sub OnTextChanged(ByVal e As System.EventArgs) If Me.Text.Length = 0 Then If Me.DesignMode Then Me.Text = Me.Name End If End If End Sub End Class>>Then from your application, add a references to your control library. Now add a regular textbox to a form and change its type (2 places):<
Option Strict On > >Public Class UserControl1 > Inherits System.Windows.Forms.TextBox '.UserControl > >#Region " Windows Form Designer generated code " > > Public Sub New() > MyBase.New() > > 'This call is required by the Windows Form Designer. > InitializeComponent() > > 'Add any initialization after the InitializeComponent() call > > End Sub > > 'UserControl1 overrides dispose to clean up the component list. > Protected Overloads Overrides Sub Dispose(ByVal disposing As Boolean) > If disposing Then > If Not (components Is Nothing) Then > components.Dispose() > End If > End If > MyBase.Dispose(disposing) > End Sub > > 'Required by the Windows Form Designer > Private components As System.ComponentModel.IContainer > > 'NOTE: The following procedure is required by the Windows Form Designer > 'It can be modified using the Windows Form Designer. > 'Do not modify it using the code editor. > <System.Diagnostics.DebuggerStepThrough()> Private Sub InitializeComponent() > components = New System.ComponentModel.Container > End Sub > >#End Region > > Protected Overrides Sub OnTextChanged(ByVal e As System.EventArgs) > If Me.Text.Length = 0 Then > If Me.DesignMode Then > Me.Text = Me.Name > End If > End If > End Sub >End Class >>
Friend WithEvents TextBox2 As WindowsControlLibrary2.UserControl1 ' System.Windows.Forms.TextBox>