VB.Net by API/System.Windows.Forms/AnchorStyles

AnchorStyles.Bottom

<source lang="vbnet"> imports System imports System.Drawing imports System.Windows.Forms public class ControlAnchorBottomLeft : 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 = "Lower Left"
   btn.Size = new Size(xButtonSize, 26)
   btn.Location = new Point(xMargin, me.ClientSize.Height - yMargin - 26)
   btn.Anchor = AnchorStyles.Bottom Or AnchorStyles.Left
 end sub
 public shared sub Main() 
   Application.Run(new ControlAnchorBottomLeft())
 end sub

end class

 </source>

AnchorStyles.Left

<source lang="vbnet"> imports System imports System.Drawing imports System.Windows.Forms public class ControlAnchorBottomLeft : 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 = "Lower Left"
   btn.Size = new Size(xButtonSize, 26)
   btn.Location = new Point(xMargin, me.ClientSize.Height - yMargin - 26)
   btn.Anchor = AnchorStyles.Bottom Or AnchorStyles.Left
 end sub
 public shared sub Main() 
   Application.Run(new ControlAnchorBottomLeft())
 end sub

end class

 </source>

AnchorStyles.Right

<source lang="vbnet"> 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

 </source>

AnchorStyles.Top

<source lang="vbnet">

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

 </source>