Mega Code Archive

 
Categories / VB.Net by API / System Windows Forms
 

AnchorStyles Right

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