_ Partial Class frmPopUp 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.lblNachricht = New System.Windows.Forms.Label() Me.lblCountdown = New System.Windows.Forms.Label() Me.Timer1 = New System.Windows.Forms.Timer(Me.components) Me.SuspendLayout() ' 'lblNachricht ' Me.lblNachricht.AutoSize = True Me.lblNachricht.Font = New System.Drawing.Font("Microsoft Sans Serif", 12.0!, System.Drawing.FontStyle.Bold, System.Drawing.GraphicsUnit.Point, CType(0, Byte)) Me.lblNachricht.Location = New System.Drawing.Point(93, 59) Me.lblNachricht.Name = "lblNachricht" Me.lblNachricht.Size = New System.Drawing.Size(296, 20) Me.lblNachricht.TabIndex = 0 Me.lblNachricht.Text = "Dienst xxxxxxxxxx wird neu gestartet" Me.lblNachricht.TextAlign = System.Drawing.ContentAlignment.MiddleCenter ' 'lblCountdown ' Me.lblCountdown.AutoSize = True Me.lblCountdown.Font = New System.Drawing.Font("Microsoft Sans Serif", 15.75!, System.Drawing.FontStyle.Bold, System.Drawing.GraphicsUnit.Point, CType(0, Byte)) Me.lblCountdown.Location = New System.Drawing.Point(221, 107) Me.lblCountdown.Name = "lblCountdown" Me.lblCountdown.Size = New System.Drawing.Size(25, 25) Me.lblCountdown.TabIndex = 1 Me.lblCountdown.Text = "3" Me.lblCountdown.TextAlign = System.Drawing.ContentAlignment.MiddleCenter ' 'Timer1 ' Me.Timer1.Interval = 1000 ' 'frmPopUp ' Me.AutoScaleDimensions = New System.Drawing.SizeF(6.0!, 13.0!) Me.AutoScaleMode = System.Windows.Forms.AutoScaleMode.Font Me.ClientSize = New System.Drawing.Size(464, 183) Me.Controls.Add(Me.lblCountdown) Me.Controls.Add(Me.lblNachricht) Me.Name = "frmPopUp" Me.Text = "frmPopUp" Me.ResumeLayout(False) Me.PerformLayout() End Sub Friend WithEvents lblNachricht As Label Friend WithEvents lblCountdown As Label Friend WithEvents Timer1 As Timer End Class