Visual Basic

<br />
<br />
<global.microsoft.visualbasic.compilerservices.designergenerated()> _<br />
Partial Class prodidtextbox<br />
    Inherits System.Windows.Forms.UserControl<br />
<br />
    'UserControl overrides dispose to clean up the component list.<br />
    <system.diagnostics.debuggernonusercode()> _<br />
    Protected Overrides Sub Dispose(ByVal disposing As Boolean)<br />
        If disposing AndAlso components IsNot Nothing Then<br />
            components.Dispose()<br />
        End If<br />
        MyBase.Dispose(disposing)<br />
    End Sub<br />
<br />
    'Required by the Windows Form Designer<br />
    Private components As System.ComponentModel.IContainer<br />
<br />
    'NOTE: The following procedure is required by the Windows Form Designer<br />
    'It can be modified using the Windows Form Designer.  <br />
    'Do not modify it using the code editor.<br />
    <system.diagnostics.debuggerstepthrough()> _<br />
    Private Sub InitializeComponent()<br />
        Me.textbox1 = New System.Windows.Forms.TextBox<br />
        Me.SuspendLayout()<br />
        '<br />
        'textbox1<br />
        '<br />
        Me.textbox1.Location = New System.Drawing.Point(0, 0)<br />
        Me.textbox1.Name = "textbox1"<br />
        Me.textbox1.Size = New System.Drawing.Size(100, 20)<br />
        Me.textbox1.TabIndex = 0<br />
        '<br />
        'prodidtextbox<br />
        '<br />
        Me.AutoScaleDimensions = New System.Drawing.SizeF(6.0!, 13.0!)<br />
        Me.AutoScaleMode = System.Windows.Forms.AutoScaleMode.Font<br />
        Me.Controls.Add(Me.textbox1)<br />
        Me.Name = "prodidtextbox"<br />
        Me.Size = New System.Drawing.Size(100, 20)<br />
        Me.ResumeLayout(False)<br />
        Me.PerformLayout()<br />
<br />
    End Sub<br />
    Friend WithEvents textbox1 As System.Windows.Forms.TextBox<br />
<br />
End Class<br />
<br />
</system.diagnostics.debuggerstepthrough()></system.diagnostics.debuggernonusercode()></global.microsoft.visualbasic.compilerservices.designergenerated()>

<br />
public class proidtexbox<br />
dim t as object<br />
 public overrides property text() as string<br />
  get<br />
   return t<br />
  end get<br />
  set(byval value as string)<br />
   t=value<br />
  end set<br />
 end property<br />
end class<br />