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