_ Partial Class frmKalender 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(frmKalender)) Me.MonthCalendar1 = New System.Windows.Forms.MonthCalendar() Me.MaskedTextBox1 = New System.Windows.Forms.MaskedTextBox() Me.lblDaum = New System.Windows.Forms.Label() Me.btnOK = New System.Windows.Forms.Button() Me.Button1 = New System.Windows.Forms.Button() Me.SuspendLayout() ' 'MonthCalendar1 ' Me.MonthCalendar1.Location = New System.Drawing.Point(6, 4) Me.MonthCalendar1.Name = "MonthCalendar1" Me.MonthCalendar1.TabIndex = 0 ' 'MaskedTextBox1 ' Me.MaskedTextBox1.Location = New System.Drawing.Point(50, 181) Me.MaskedTextBox1.Mask = "00/00/0000" Me.MaskedTextBox1.Name = "MaskedTextBox1" Me.MaskedTextBox1.Size = New System.Drawing.Size(84, 20) Me.MaskedTextBox1.TabIndex = 3 Me.MaskedTextBox1.ValidatingType = GetType(Date) ' 'lblDaum ' Me.lblDaum.AutoSize = True Me.lblDaum.Location = New System.Drawing.Point(6, 184) Me.lblDaum.Name = "lblDaum" Me.lblDaum.Size = New System.Drawing.Size(38, 13) Me.lblDaum.TabIndex = 4 Me.lblDaum.Text = "Datum" ' 'btnOK ' Me.btnOK.DialogResult = System.Windows.Forms.DialogResult.OK Me.btnOK.Location = New System.Drawing.Point(6, 225) Me.btnOK.Name = "btnOK" Me.btnOK.Size = New System.Drawing.Size(75, 23) Me.btnOK.TabIndex = 5 Me.btnOK.Text = "OK" Me.btnOK.UseVisualStyleBackColor = True ' 'Button1 ' Me.Button1.Location = New System.Drawing.Point(124, 225) Me.Button1.Name = "Button1" Me.Button1.Size = New System.Drawing.Size(75, 23) Me.Button1.TabIndex = 6 Me.Button1.Text = "Abbruch" Me.Button1.UseVisualStyleBackColor = True ' 'frmKalender ' Me.AutoScaleDimensions = New System.Drawing.SizeF(6.0!, 13.0!) Me.AutoScaleMode = System.Windows.Forms.AutoScaleMode.Font Me.ClientSize = New System.Drawing.Size(211, 260) Me.Controls.Add(Me.Button1) Me.Controls.Add(Me.btnOK) Me.Controls.Add(Me.lblDaum) Me.Controls.Add(Me.MaskedTextBox1) Me.Controls.Add(Me.MonthCalendar1) Me.Icon = CType(resources.GetObject("$this.Icon"), System.Drawing.Icon) Me.Name = "frmKalender" Me.Text = "Kalender" Me.ResumeLayout(False) Me.PerformLayout() End Sub Friend WithEvents MonthCalendar1 As MonthCalendar Friend WithEvents MaskedTextBox1 As MaskedTextBox Friend WithEvents lblDaum As Label Friend WithEvents btnOK As Button Friend WithEvents Button1 As Button End Class