Public Class WithdrawForm Inherits TransactionForm Public Sub New() MyBase.New() 'This call is required by the Windows Form Designer. InitializeComponent() 'Add any initialization after the InitializeComponent() call End Sub 'Form 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 ' 'Additional Controls ' Protected WithEvents PayToField As System.Windows.Forms.TextBox Protected WithEvents PayToText As System.Windows.Forms.Label Protected Overrides Sub InitializeComponent() MyBase.InitializeComponent() Me.PayToField = New System.Windows.Forms.TextBox() Me.PayToText = New System.Windows.Forms.Label() ' 'PayToField ' Me.PayToField.Location = New System.Drawing.Point(80, 62) Me.PayToField.Size = New System.Drawing.Size(176, 20) Me.PayToField.TabIndex = 4 ' 'PayToText ' Me.PayToText.Location = New System.Drawing.Point(10, 64) Me.PayToText.Name = "PayToText" Me.PayToText.Size = New System.Drawing.Size(70, 16) Me.PayToText.TabIndex = 5 Me.PayToText.Text = "Pay To:" ' 'Re-order the memo field and text ' Me.MemoField.TabIndex = 6 Me.MemoText.TabIndex = 7 MyBase.InitializeComponent() Me.Text = "Withdraw Form" ' 'Re-add controls to form ' Me.Controls.Clear() Me.Controls.AddRange(New System.Windows.Forms.Control() _ {Me.DateText, Me.DateField, Me.PayToText, Me.PayToField, _ Me.MemoText, Me.MemoField, Me.AmountText, Me.AmountField}) End Sub End Class