自从VB6开始，Event这个东西就已经深入了VB系列程序中间。在VB6中，我们是简单的通过诸如TextBox1_TextChanged这样一个函数了解到当文字变化的时候，就能够自动触发这个函数。进入了.NET之后，是我们有幸第一次看到了Event的真面目。现在我们在VB.NET里面直接写入下面的函数
    Private Sub TextBox1_TextChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles TextBox1.TextChanged
    End Sub
看来是不能够达到VB6的效果的。原因是我们少写了Handles TextBox1.TextChanged。
这个就是真实存在的Event了。VB.NET对于Event终于可以脱离了函数名的限制（但是不是函数的全部限制），自由的使用。只要我们喜欢，我们也可以写成
    Private Sub ThisIsMyTextChangedMethod(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles TextBox1.TextChanged
    End Sub
完全可以。
现在我们就来看看我们如何在自己的类里面加入我们需要的Event。

（1）首先我们需要一个类
Public Class Class1
    Inherits Object
End Class

（2）然后我们就可以在这个类里面加入我们的Event了。
Public Class Class1
    Inherits Object
    Public Event MyEvent(ByVal sender As Object, ByVal e As EventArgs)
End Class
Event里面是可以携带参数的。就好像TextChanged Event一样，他携带了sender和e。sender表示这个Event触发源的实例，也就是这个TextBox1；e是一个事件参数，我们可以将需要传达给使用的信息通过继承自EventArgs的类的实例来传递出去。而这里，EventArgs里面并没有什么有价值的信息。
现在这个类里面已经有了我们要的Event，但是这个Event仅仅是一个声明。也就是说，我们告诉编译器和使用者，Class1里面有一个叫做MyEvent的Event。我们的下一个步骤就是确定什么时候，我们要引发这个Event。
 
（3）引发Event的语句很简单。
RaiseEvent MyEvent(Me, New EventArgs)
但是值得我们注意的是，Event是不能凭空触发的。我的意思是，RaiseEvent也是一条VB语句，我们只能将这条语句写在Function、Sub或者Property里面。这就意味着我们的Event的触发，要么是通过别人调用了某一个方法，要么通过现在已经存在Handle Sub来触发。
现在我们使用第一种方法，我们通过一个Public函数来触发这个Event。
    Public Sub DoSomething()
        RaiseEvent MyEvent(Me, New EventArgs)
    End Sub
这就意味着，当用户调用了DoSomething方法的时候，Class1就会自动抛出一个MyEvent事件出来。
到这里，一个完整的Event就已经做完了。很简单吧。
 
（4）同样的方法，我们可以在一个Handle Sub里面抛出我们Event。
Public Class Class1
    Inherits Object
    Private WithEvents MyButton As New Button
    Public Event MyEvent(ByVal sender As Object, ByVal e As EventArgs)
    Private Sub MyButton_Click(ByVal sender As Object, ByVal e As System.EventArgs) Handles MyButton.Click
        RaiseEvent MyEvent(Me, New EventArgs)
    End Sub
End Class
这里我们同过一个WithEvents的成员MyButton的Click事件函数，触发我们自己的MyEvent事件。
 
（5）使用这个Class1，我们就可以看到我们自己做的这个MyEvent事件了。
Public Class Test
    Inherits Object
    Private WithEvents MyClass1 As Class1
    Private Sub MyClass1_MyEvent(ByVal sender As Object, ByVal e As System.EventArgs) Handles MyClass1.MyEvent
    End Sub
End Class
 
很简单吧，但是使用Event并不止如此。随后我们将会看到这样简单的使用Event会导致的一些问题。

出处：https://www.cnblogs.com/farrio/archive/2005/03/16/119776.html