VB.Net Tutorial/Event/WithEvents

WithEvents

imports System
imports System.Drawing
imports System.Windows.Forms
public class AddressOfWithEvents : inherits System.Windows.Forms.Form
  Dim WithEvents 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 AddressOfWithEvents())
  end sub
  private sub btn_Click(ByVal sender as object, _
      ByVal e as EventArgs)
    MessageBox.Show("btn_Click method","Events Demonstration")
  end sub
  private sub btn_ClickHandles(ByVal sender as object, _
      ByVal e as EventArgs) _
      Handles btn.Click
    MessageBox.Show("btn_ClickHandles method","Events Demonstration")
  end sub
end class