'Beispiel: VB .Net - DateTimePicker - Immer den 1.1. des laufenden Jahres anzeigen ' ' Imports System Imports System.Drawing Imports System.Windows.Forms Imports vb = Microsoft.VisualBasic Namespace VBDotNet_DateTimePicker_Immer1_1_DesLaufendenJahresAnzeigen Public Class MainForm Inherits System.Windows.Forms.Form Private dateTimePicker1 As System.Windows.Forms.DateTimePicker Public Shared Sub Main Dim fMainForm As New MainForm fMainForm.ShowDialog() End Sub Public Sub New() MyBase.New Me.InitializeComponent End Sub #Region " Windows Forms Designer generated code " Private Sub InitializeComponent() Me.dateTimePicker1 = New System.Windows.Forms.DateTimePicker Me.SuspendLayout ' 'dateTimePicker1 ' Me.dateTimePicker1.Location = New System.Drawing.Point(8, 8) Me.dateTimePicker1.Name = "dateTimePicker1" Me.dateTimePicker1.Size = New System.Drawing.Size(280, 20) Me.dateTimePicker1.TabIndex = 0 ' 'MainForm ' Me.AutoScaleBaseSize = New System.Drawing.Size(5, 13) Me.ClientSize = New System.Drawing.Size(292, 45) Me.Controls.Add(Me.dateTimePicker1) Me.Name = "MainForm" Me.Text = "Testform <DateTimePicker - Immer den 1.1. des laufenden Jahres anzeigen>" AddHandler Load, AddressOf Me.MainFormLoad Me.ResumeLayout(false) End Sub #End Region Private Sub MainFormLoad(sender As System.Object, e As System.EventArgs) Me.Show() Call SetDate(dateTimePicker1) End Sub Private Sub SetDate(ByVal dtp As DateTimePicker) Try Dim CurrentYear As Integer = vb.Year(vb.Now) dtp.Value = New DateTime(CurrentYear, 1, 1) Catch End Try End Sub End Class End Namespace