Mega Code Archive

 
Categories / VB.Net by API / System Windows Forms
 

AnchorStyles Top

imports System imports System.Drawing imports System.Windows.Forms public class ControlAnchorTopRight : 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 = "Upper Right"     btn.Size = new Size(xButtonSize, 26)     btn.Location = new Point(me.ClientSize.Width - xMargin - xButtonSize, yMargin)     btn.Anchor = AnchorStyles.Top Or AnchorStyles.Right   end sub   public shared sub Main()      Application.Run(new ControlAnchorTopRight())   end sub end class