Hi All
I have a project called WFL which contains a calss called Company. I have a
second project called UI which contains a form called frmCompany. I have set
a reference at UI to WFL.Company.
In WFL.Company I have: 'skeleton code
Public Class Company
Public Event Refresh
Public Sub Fetch
'do some stuff
RaiseEvent Refresh
End Sub
End Class
In UI.frmCompany I have:
Public Class frmCompany 'skeleton code
Private Withevents oCompany As New WFL.Company
Private Sub frmCompany_Load(ByVal sender As System.Object, ByVal e As
System.EventArgs) Handles MyBase.Load
oCompany.Fetch
End Sub
Private Sub oCompany_Refresh() Handles oCompany.Refresh
Msgbox "I got an event"
End Try
End Sub
End Class
This is essentially how it was done in VB6. The above, however, does not
work. The event is not fired. No errors occur (option strict On)
What am I doing wrong here?
Thanks for any help