PublicClass Form1Class Form1 DimWithEvents cls1 AsNew ClassTest() 'WithEvents方式 Dim cls2 AsNew ClassTest() 'AddHandler方式 PrivateSub Form1_Load()Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) HandlesMyBase.Load cls1.Test() 'WithEvents方式 AddHandler cls2.GetValue, AddressOf cls2GetValue 'AddHandler方式 cls2.Test() Me.Close() End Sub PrivateSub cls1_GetVale()Sub cls1_GetVale(ByValstrAsString) Handles cls1.GetValue 'WithEvents方式 MsgBox("cls1 "&str) End Sub PrivateSub cls2GetValue()Sub cls2GetValue(ByValstrAsString) 'AddHandler方式 MsgBox("cls2 "&str) End Sub End Class PublicClass ClassTestClass ClassTest PublicEvent GetValue(ByValstrAsString) PublicSub Test()Sub Test() RaiseEvent GetValue("事件例子") End Sub End Class