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
|