_ Partial Class frmMessageBox 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() Dim resources As System.ComponentModel.ComponentResourceManager = New System.ComponentModel.ComponentResourceManager(GetType(frmMessageBox)) Me.lblmsg1 = New System.Windows.Forms.Label() Me.lblmsg2 = New System.Windows.Forms.Label() Me.txtmsg1 = New System.Windows.Forms.TextBox() Me.txtmsg2 = New System.Windows.Forms.TextBox() Me.OK_Button = New System.Windows.Forms.Button() Me.SuspendLayout() ' 'lblmsg1 ' Me.lblmsg1.AutoSize = True Me.lblmsg1.Location = New System.Drawing.Point(12, 9) Me.lblmsg1.Name = "lblmsg1" Me.lblmsg1.Size = New System.Drawing.Size(38, 13) Me.lblmsg1.TabIndex = 1 Me.lblmsg1.Text = "Label1" ' 'lblmsg2 ' Me.lblmsg2.AutoSize = True Me.lblmsg2.Location = New System.Drawing.Point(12, 77) Me.lblmsg2.Name = "lblmsg2" Me.lblmsg2.Size = New System.Drawing.Size(38, 13) Me.lblmsg2.TabIndex = 2 Me.lblmsg2.Text = "Label2" ' 'txtmsg1 ' Me.txtmsg1.BackColor = System.Drawing.SystemColors.Control Me.txtmsg1.Location = New System.Drawing.Point(12, 25) Me.txtmsg1.Multiline = True Me.txtmsg1.Name = "txtmsg1" Me.txtmsg1.ReadOnly = True Me.txtmsg1.Size = New System.Drawing.Size(411, 49) Me.txtmsg1.TabIndex = 3 ' 'txtmsg2 ' Me.txtmsg2.BackColor = System.Drawing.SystemColors.Control Me.txtmsg2.Location = New System.Drawing.Point(15, 93) Me.txtmsg2.Multiline = True Me.txtmsg2.Name = "txtmsg2" Me.txtmsg2.ReadOnly = True Me.txtmsg2.Size = New System.Drawing.Size(408, 54) Me.txtmsg2.TabIndex = 4 ' 'OK_Button ' Me.OK_Button.Anchor = CType(((System.Windows.Forms.AnchorStyles.Bottom Or System.Windows.Forms.AnchorStyles.Left) _ Or System.Windows.Forms.AnchorStyles.Right), System.Windows.Forms.AnchorStyles) Me.OK_Button.Font = New System.Drawing.Font("Tahoma", 9.75!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte)) Me.OK_Button.ImageAlign = System.Drawing.ContentAlignment.MiddleLeft Me.OK_Button.Location = New System.Drawing.Point(14, 151) Me.OK_Button.Name = "OK_Button" Me.OK_Button.Size = New System.Drawing.Size(409, 54) Me.OK_Button.TabIndex = 0 Me.OK_Button.Text = "OK" ' 'frmMessageBox ' Me.AcceptButton = Me.OK_Button Me.AutoScaleDimensions = New System.Drawing.SizeF(6.0!, 13.0!) Me.AutoScaleMode = System.Windows.Forms.AutoScaleMode.Font Me.ClientSize = New System.Drawing.Size(433, 210) Me.Controls.Add(Me.txtmsg2) Me.Controls.Add(Me.txtmsg1) Me.Controls.Add(Me.lblmsg2) Me.Controls.Add(Me.lblmsg1) Me.Controls.Add(Me.OK_Button) Me.Font = New System.Drawing.Font("Tahoma", 8.25!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0,Byte)) Me.FormBorderStyle = System.Windows.Forms.FormBorderStyle.FixedDialog Me.Icon = CType(resources.GetObject("$this.Icon"),System.Drawing.Icon) Me.MaximizeBox = false Me.MinimizeBox = false Me.Name = "frmMessageBox" Me.ShowInTaskbar = false Me.StartPosition = System.Windows.Forms.FormStartPosition.CenterParent Me.Text = "frmMessageBox" Me.ResumeLayout(false) Me.PerformLayout End Sub Friend WithEvents OK_Button As System.Windows.Forms.Button Friend WithEvents lblmsg1 As System.Windows.Forms.Label Friend WithEvents lblmsg2 As System.Windows.Forms.Label Friend WithEvents txtmsg1 As System.Windows.Forms.TextBox Friend WithEvents txtmsg2 As System.Windows.Forms.TextBox End Class