_ Partial Class frmCalendar 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.MonthCalendar1 = New System.Windows.Forms.MonthCalendar Me.btnok = New System.Windows.Forms.Button Me.SuspendLayout() ' 'MonthCalendar1 ' Me.MonthCalendar1.Dock = System.Windows.Forms.DockStyle.Top Me.MonthCalendar1.Location = New System.Drawing.Point(0, 0) Me.MonthCalendar1.Name = "MonthCalendar1" Me.MonthCalendar1.TabIndex = 0 ' 'btnok ' Me.btnok.Dock = System.Windows.Forms.DockStyle.Top Me.btnok.Location = New System.Drawing.Point(0, 162) Me.btnok.Name = "btnok" Me.btnok.Size = New System.Drawing.Size(162, 23) Me.btnok.TabIndex = 1 Me.btnok.Text = "OK" Me.btnok.UseVisualStyleBackColor = True ' 'frmCalendar ' Me.AutoScaleDimensions = New System.Drawing.SizeF(6.0!, 13.0!) Me.AutoScaleMode = System.Windows.Forms.AutoScaleMode.Font Me.ClientSize = New System.Drawing.Size(162, 183) Me.Controls.Add(Me.btnok) Me.Controls.Add(Me.MonthCalendar1) Me.FormBorderStyle = System.Windows.Forms.FormBorderStyle.FixedToolWindow Me.Name = "frmCalendar" Me.StartPosition = System.Windows.Forms.FormStartPosition.Manual Me.Text = "Kalender" Me.ResumeLayout(False) End Sub Friend WithEvents MonthCalendar1 As System.Windows.Forms.MonthCalendar Friend WithEvents btnok As System.Windows.Forms.Button End Class