VB Code:
'Code In Class
Public Class cSampleClass
Public Event InfoForTextbox(ByVal strInfo As String)
Public Function DoSomething()
'.....
RaiseEvent InfoForTextbox("Hello")
'.....
End Function
End Class
VB Code:
Public Class Form1
Inherits System.Windows.Forms.Form
WithEvents cSample As cSampleClass
'|| form designer code here
Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
cSample.DoSomething()
End Sub
Private Sub CalledWhenInfoIsPassed(ByVal strInfo As String) Handles cSample.InfoForTextbox
LabelName.Caption = strInfo
End Sub
End Class