VB.Net Tutorial/GUI/DomainUpDowns

DomainUpDowns

imports System
imports System.Drawing
imports System.Windows.Forms
public class DomainUpDowns : inherits Form
  dim dupdwn as DomainUpDown
  public sub New()
    Size = new Size(480,580)
    dupdwn = new DomainUpDown()
    dupdwn.Parent = me
    dupdwn.Location = new Point(10,50)
    dupdwn.Size = new Size(150,dupdwn.PreferredHeight)
    dupdwn.ReadOnly = true
    dupdwn.TextAlign = HorizontalAlignment.Center
    dupdwn.UpDownAlign = LeftRightAlignment.Left
    dupdwn.Wrap = true
    AddHandler dupdwn.SelectedItemChanged, _
      AddressOf dupdwn_OnSelectedItemChanged
    dupdwn.Items.Add(BorderStyle.Fixed3D)
    dupdwn.Items.Add(BorderStyle.FixedSingle)
    dupdwn.Items.Add(BorderStyle.None) 
    dupdwn.SelectedIndex = 0
  end sub
  private sub dupdwn_OnSelectedItemChanged(ByVal sender as object, _
                    ByVal e as EventArgs)
    "Me.BorderStyle = CType(dupdwn.SelectedItem, BorderStyle)
  end sub
  public shared sub Main() 
    Application.Run(new DomainUpDowns())
  end sub
end class