Mega Code Archive

 

Categories / VB.Net Tutorial / GUI

 

Control Dynamic Size Location

imports System imports System.Drawing imports System.Windows.Forms public class ControlDynamicSizeLocation : inherits Form   private WithEvents btnShow as Button   public sub New()     btnShow = new Button()     btnShow.Parent = me     Size = new Size(350,400)     btnShow.Size = new Size(20, 20)     OnResize(EventArgs.Empty)   end sub   protected overrides sub OnResize(ByVal e as EventArgs)     MyBase.OnResize(e)          btnShow.Location = new Point(me.ClientSize.Width/10, me.ClientSize.Height/10)   end sub   public shared sub Main()      Application.Run(new ControlDynamicSizeLocation())   end sub end class