Public Class newTextfield
    Inherits TextBox
 
    Friend WithEvents btnReset As New System.Windows.Forms.Button
 
    Public Sub New()
        SetField()
    End Sub
    Private Sub SetField()
        With btnReset
            .Width = 14
            .Height = 21
            .Text = "X"
        End With
        Me.Parent.Controls.Add(btnReset)
    End Sub
 
    Private Sub btnReset_Click(ByVal sender As Object, ByVal e As _
      System.EventArgs) Handles btnReset.Click
        Me.Text = String.Empty
    End Sub
 
    Private Sub newTextfield_LocationChanged(ByVal sender As Object, ByVal e As _
      System.EventArgs) Handles Me.LocationChanged
        SetPosition()
    End Sub
 
    Private Sub newTextfield_Resize(ByVal sender As Object, ByVal e As _
      System.EventArgs) Handles Me.Resize
        SetPosition()
    End Sub
 
    Private Sub SetPosition()
        btnReset.Left = Me.Left + Me.Width
        btnReset.Top = Me.Top - 1
    End Sub
End Class