imports System
imports System.Drawing
imports System.Windows.Forms
public class ControlAnchorLeftRight : inherits Form
public sub New()
Size = new Size(350,400)
dim xButtonSize as integer = 120
dim xMargin, yMargin as integer
xMargin = Font.Height * 2
yMargin = Font.Height * 2
dim btn as new Button()
btn.Parent = me
btn.Text = "Upper Left"
btn.Size = new Size(xButtonSize, 26)
btn.Location = new Point(xMargin, yMargin)
btn = new Button()
btn.Parent = me
btn.Text = "Middle Span"
btn.Size = new Size(xButtonSize, 26)
btn.Location = new Point(xMargin,Cint(me.ClientSize.Height / 2) - 26)
btn.Anchor = AnchorStyles.Left Or AnchorStyles.Right
end sub
public shared sub Main()
Application.Run(new ControlAnchorLeftRight())
end sub
end class
|