Mega Code Archive

 

Categories / VB.Net by API / System Windows Forms

 

Button Click

imports System imports System.Drawing imports System.Windows.Forms public class EventsDemo : inherits System.Windows.Forms.Form   Private btn as Button   public sub New()     btn = new Button()     btn.Location = new Point(50,50)     btn.Text = "Test"     Controls.Add(btn)         AddHandler btn.Click, AddressOf btn_Click   end sub   public shared sub Main()      Application.Run(new EventsDemo())   end sub   private sub btn_Click(ByVal sender as object,ByVal e as EventArgs)     MessageBox.Show("btn_Click method","Events Demonstration")   end sub end class