it may help you to create events....
Public Class Form1
Private WithEvents ED, ed2 As New EventDemo
Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
ED.sampleOparation("1st object event")
AddHandler ed2.sampleevent, AddressOf ED_sampleevent
ed2.sampleOparation("2nd object event")
End Sub
Private Sub ED_sampleevent(ByVal sender As Object, ByVal e As EventDemo.EventArg) Handles ED.sampleevent
MsgBox(e.myval)
End Sub
End Class
Public Class EventDemo
Public Event sampleevent(ByVal sender As Object, ByVal e As EventArg)
Public Sub sampleOparation(ByVal sometext As String)
Dim e As New EventArg
e.myval = sometext
RaiseEvent sampleevent(Me, e)
End Sub
Public Class EventArg
Inherits EventArgs
Public myval As String
End Class
End Class