System Windows Forms VB.Net by API

Imports System
Imports System.Data
Imports System.Windows.Forms
Imports System.Drawing
Public Class MainClass
    
    Shared Sub Main()
        Dim form1 As Form = New Form1
        Application.Run(form1)
    End Sub
End Class
Public Class Form1
    Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
        DomainUpDown1.SelectedIndex = 0
    End Sub
End Class
 _
Partial Public Class Form1
    Inherits System.Windows.Forms.Form
     _
    Private Sub InitializeComponent()
        Me.DomainUpDown1 = New System.Windows.Forms.DomainUpDown
        Me.Label1 = New System.Windows.Forms.Label
        Me.SuspendLayout()
        '
        'DomainUpDown1
        '
        Me.DomainUpDown1.Items.Add("January")
        Me.DomainUpDown1.Items.Add("February")
        Me.DomainUpDown1.Items.Add("March")
        Me.DomainUpDown1.Items.Add("April")
        Me.DomainUpDown1.Items.Add("May")
        Me.DomainUpDown1.Items.Add("June")
        Me.DomainUpDown1.Items.Add("July")
        Me.DomainUpDown1.Items.Add("August")
        Me.DomainUpDown1.Items.Add("September")
        Me.DomainUpDown1.Items.Add("October")
        Me.DomainUpDown1.Items.Add("November")
        Me.DomainUpDown1.Items.Add("December")
        Me.DomainUpDown1.Items.Add("Smarch")
        Me.DomainUpDown1.Location = New System.Drawing.Point(48, 16)
        Me.DomainUpDown1.Name = "DomainUpDown1"
        Me.DomainUpDown1.Size = New System.Drawing.Size(152, 20)
        Me.DomainUpDown1.TabIndex = 0
        Me.DomainUpDown1.Text = "DomainUpDown1"
        '
        'Label1
        '
        Me.Label1.AutoSize = True
        Me.Label1.Location = New System.Drawing.Point(8, 16)
        Me.Label1.Name = "Label1"
        Me.Label1.Size = New System.Drawing.Size(33, 13)
        Me.Label1.TabIndex = 1
        Me.Label1.Text = "Month"
        '
        'Form1
        '
        Me.AutoScaleDimensions = New System.Drawing.SizeF(6.0!, 13.0!)
        Me.AutoScaleMode = System.Windows.Forms.AutoScaleMode.Font
        Me.ClientSize = New System.Drawing.Size(292, 273)
        Me.Controls.Add(Me.Label1)
        Me.Controls.Add(Me.DomainUpDown1)
        Me.Name = "Form1"
        Me.Text = "UseDomainUpDown"
        Me.ResumeLayout(False)
        Me.PerformLayout()
    End Sub
    Friend WithEvents DomainUpDown1 As System.Windows.Forms.DomainUpDown
    Friend WithEvents Label1 As System.Windows.Forms.Label
End Class