_ Partial Class frmError 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.components = New System.ComponentModel.Container() Me.OK_Button = New System.Windows.Forms.Button() Me.Label1 = New System.Windows.Forms.Label() Me.txterror = New System.Windows.Forms.TextBox() Me.Timer1 = New System.Windows.Forms.Timer(Me.components) Me.SuspendLayout() ' 'OK_Button ' Me.OK_Button.Anchor = System.Windows.Forms.AnchorStyles.None Me.OK_Button.Location = New System.Drawing.Point(355, 150) Me.OK_Button.Margin = New System.Windows.Forms.Padding(6, 5, 6, 5) Me.OK_Button.Name = "OK_Button" Me.OK_Button.Size = New System.Drawing.Size(134, 41) Me.OK_Button.TabIndex = 0 Me.OK_Button.Text = "OK" ' 'Label1 ' Me.Label1.AutoSize = True Me.Label1.ForeColor = System.Drawing.Color.Red Me.Label1.Location = New System.Drawing.Point(15, 9) Me.Label1.Margin = New System.Windows.Forms.Padding(6, 0, 6, 0) Me.Label1.Name = "Label1" Me.Label1.Size = New System.Drawing.Size(358, 23) Me.Label1.TabIndex = 0 Me.Label1.Text = "Folgender Fehler wurde festgestellt:" ' 'txterror ' Me.txterror.AcceptsReturn = True Me.txterror.Enabled = False Me.txterror.Font = New System.Drawing.Font("Verdana", 9.75!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte)) Me.txterror.ForeColor = System.Drawing.Color.DarkRed Me.txterror.Location = New System.Drawing.Point(19, 35) Me.txterror.Multiline = True Me.txterror.Name = "txterror" Me.txterror.ReadOnly = True Me.txterror.Size = New System.Drawing.Size(470, 107) Me.txterror.TabIndex = 1 Me.txterror.TabStop = False ' 'Timer1 ' Me.Timer1.Interval = 300 ' 'frmError ' Me.AcceptButton = Me.OK_Button Me.AutoScaleDimensions = New System.Drawing.SizeF(12.0!, 23.0!) Me.AutoScaleMode = System.Windows.Forms.AutoScaleMode.Font Me.ClientSize = New System.Drawing.Size(495, 203) Me.ControlBox = False Me.Controls.Add(Me.txterror) Me.Controls.Add(Me.Label1) Me.Controls.Add(Me.OK_Button) Me.Font = New System.Drawing.Font("Verdana", 14.25!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte)) Me.FormBorderStyle = System.Windows.Forms.FormBorderStyle.FixedDialog Me.Margin = New System.Windows.Forms.Padding(6, 5, 6, 5) Me.MaximizeBox = False Me.MinimizeBox = False Me.Name = "frmError" Me.ShowInTaskbar = False Me.StartPosition = System.Windows.Forms.FormStartPosition.CenterScreen Me.Text = "Fehlermeldung:" Me.TopMost = True Me.ResumeLayout(False) Me.PerformLayout() End Sub Friend WithEvents OK_Button As System.Windows.Forms.Button Friend WithEvents Label1 As System.Windows.Forms.Label Friend WithEvents txterror As System.Windows.Forms.TextBox Friend WithEvents Timer1 As System.Windows.Forms.Timer End Class