Dim bre_window As Form = New Form
        With bre_window
            .Width = 300
            .Height = 200
            .Text = "Wert für" + Space(1) + jahr.ToString + Space(1) + _
              "eingeben"
            .MinimumSize = New Size(300, 200)
            .Icon = Icon.FromHandle(CType(ImageList_icons.Images(0), _
              Bitmap).GetHicon())
            .StartPosition = FormStartPosition.CenterScreen
            .SizeGripStyle = Windows.Forms.SizeGripStyle.Auto
 
            Dim loc_gp As GroupBox = New GroupBox
            With loc_gp
                .Location = New Point(12, 12)
                .Width = 260
                .Height = 109
                .Anchor = AnchorStyles.Bottom Or AnchorStyles.Left Or _
                  AnchorStyles.Right Or AnchorStyles.Top
 
                Dim loc_label As Label = New Label
                With loc_label
                    .Width = 145
                    .Height = 13
                    .Location = New Point(25, 45)
                    .Text = "Dateneingabe:"
                End With
                Dim loc_textfeld As TextBox = New TextBox
                With loc_textfeld
                    .Width = 100
                    .Height = 20
                    .Location = New Point(154, 42)
                    .Anchor = AnchorStyles.Left Or AnchorStyles.Right Or _
                      AnchorStyles.Top
                End With
                Dim uebernehmen_btn As Button = New Button
                With uebernehmen_btn
                    .Width = 76
                    .Height = 23
                    .Text = "Übernehmen"
                    .Location = New Point(185, 90)
                    .Anchor = AnchorStyles.Bottom Or AnchorStyles.Right
                End With
 
                bre_window.Controls.Add(loc_textfeld)
                bre_window.Controls.Add(loc_label)
                bre_window.Controls.Add(uebernehmen_btn)
            End With
 
            Dim schliessen_btn As Button = New Button
            With schliessen_btn
                .Width = 76
                .Height = 23
                .Text = "Schliessen"
                .Location = New Point(196, 127)
                .DialogResult = Windows.Forms.DialogResult.Cancel
                .Anchor = AnchorStyles.Bottom Or AnchorStyles.Right
            End With
 
            .Controls.Add(loc_gp)
            .Controls.Add(schliessen_btn)
            .ShowDialog()
        End With