VB.Net Tutorial/Event/WithEvents

WithEvents

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