把 User Control1b改为 Text Change.∽b,也就是生成的控件名为 Text change。 再来看自动生成的代码框架 <Global. Microsoft VisualBasic. Compiler Services. Designer Generated> Partial Class textchange nherits System Windows Forms UserControl decOntrol.重写 Dispose,以清理组件列表 说明: <System Diagnostics Debugger codeo> a Inherits Protected Overrides Sub Dispose(By Val disposing As Boolean) If disposing AndAlso components Is Not Nothing Then System Win components. Dispose dows. Form End If s. UserContr My Base. Dispose(disposing) o代表 End sub Text Chang Windows窗体设计器所必需的 e类继承 Private components As System Component Model. IContainer System Win 注意:以下过程是 Windows窗体设计器所必需的 dows. Form 可以使用 Windows窗体设计器修改它。 s. UserContr 不要使用代码编辑器修改它 System Diagnostics Debugger Step Througho l类 Private Sub Initialize Component b.必 components New System Component Model. Container 须实现 Me. Auto Scale Mode System Windows Forms. Auto ScaleMode Font dispose End Sub End class把UserControl1.vb改为TextChange.vb，也就是生成的控件名为TextChange。 再来看自动生成的代码框架。 <Global.Microsoft.VisualBasic.CompilerServices.DesignerGenerated()> _ Partial Class textchange Inherits System.Windows.Forms.UserControl 'UserControl1 重写 Dispose，以清理组件列表。 <System.Diagnostics.DebuggerNonUserCode()> _ Protected Overrides Sub Dispose(ByVal disposing As Boolean) If disposing AndAlso components IsNot Nothing Then components.Dispose() End If MyBase.Dispose(disposing) End Sub 'Windows 窗体设计器所必需的 Private components As System.ComponentModel.IContainer '注意：以下过程是 Windows 窗体设计器所必需的 '可以使用 Windows 窗体设计器修改它。 '不要使用代码编辑器修改它。 <System.Diagnostics.DebuggerStepThrough()> _ Private Sub InitializeComponent() components = New System.ComponentModel.Container() Me.AutoScaleMode = System.Windows.Forms.AutoScaleMode.Font End Sub End Class 说明： a.Inherits System.Win dows.Form s.UserContr ol代表 TextChang e类继承 System.Win dows.Form s.UserContr ol类。 b.必 须实现 dispose方 法