_ Partial Class Standorthinzu Inherits System.Windows.Forms.Form 'Das Formular überschreibt den Löschvorgang, um die Komponentenliste zu bereinigen. _ Protected Overrides Sub Dispose(ByVal disposing As Boolean) Try If disposing AndAlso components IsNot Nothing Then components.Dispose() End If Finally MyBase.Dispose(disposing) End Try End Sub 'Wird vom Windows Form-Designer benötigt. Private components As System.ComponentModel.IContainer 'Hinweis: Die folgende Prozedur ist für den Windows Form-Designer erforderlich. 'Das Bearbeiten ist mit dem Windows Form-Designer möglich. 'Das Bearbeiten mit dem Code-Editor ist nicht möglich. _ Private Sub InitializeComponent() Me.TxtStandort = New System.Windows.Forms.TextBox() Me.Label1 = New System.Windows.Forms.Label() Me.CmdAdd = New System.Windows.Forms.Button() Me.Label2 = New System.Windows.Forms.Label() Me.TxtNetzwerkintern = New System.Windows.Forms.TextBox() Me.SuspendLayout() ' 'TxtStandort ' Me.TxtStandort.Location = New System.Drawing.Point(103, 14) Me.TxtStandort.Name = "TxtStandort" Me.TxtStandort.Size = New System.Drawing.Size(181, 20) Me.TxtStandort.TabIndex = 0 ' 'Label1 ' Me.Label1.AutoSize = True Me.Label1.Location = New System.Drawing.Point(21, 17) Me.Label1.Name = "Label1" Me.Label1.Size = New System.Drawing.Size(76, 13) Me.Label1.TabIndex = 1 Me.Label1.Text = "Standortname:" ' 'CmdAdd ' Me.CmdAdd.BackColor = System.Drawing.SystemColors.ControlLightLight Me.CmdAdd.FlatStyle = System.Windows.Forms.FlatStyle.Flat Me.CmdAdd.Location = New System.Drawing.Point(209, 77) Me.CmdAdd.Name = "CmdAdd" Me.CmdAdd.Size = New System.Drawing.Size(75, 23) Me.CmdAdd.TabIndex = 2 Me.CmdAdd.Text = "Hinzufügen" Me.CmdAdd.UseVisualStyleBackColor = False ' 'Label2 ' Me.Label2.AutoSize = True Me.Label2.Location = New System.Drawing.Point(25, 43) Me.Label2.Name = "Label2" Me.Label2.Size = New System.Drawing.Size(72, 13) Me.Label2.TabIndex = 4 Me.Label2.Text = "NetzIP Intern:" ' 'TxtNetzwerkintern ' Me.TxtNetzwerkintern.Location = New System.Drawing.Point(103, 40) Me.TxtNetzwerkintern.Name = "TxtNetzwerkintern" Me.TxtNetzwerkintern.Size = New System.Drawing.Size(181, 20) Me.TxtNetzwerkintern.TabIndex = 1 ' 'Standorthinzu ' Me.AutoScaleDimensions = New System.Drawing.SizeF(6.0!, 13.0!) Me.AutoScaleMode = System.Windows.Forms.AutoScaleMode.Font Me.BackColor = System.Drawing.SystemColors.GradientInactiveCaption Me.ClientSize = New System.Drawing.Size(299, 118) Me.Controls.Add(Me.Label2) Me.Controls.Add(Me.TxtNetzwerkintern) Me.Controls.Add(Me.CmdAdd) Me.Controls.Add(Me.Label1) Me.Controls.Add(Me.TxtStandort) Me.Name = "Standorthinzu" Me.Text = "Standorthinzu" Me.ResumeLayout(False) Me.PerformLayout() End Sub Friend WithEvents TxtStandort As TextBox Friend WithEvents Label1 As Label Friend WithEvents CmdAdd As Button Friend WithEvents Label2 As Label Friend WithEvents TxtNetzwerkintern As TextBox End Class