Class class1
Public Event MyEvent()
Public Sub Raise()
RaiseEvent MyEvent()
End Sub
End Class
Class class2
Public Sub RaiseEventClass1()
Dim c1 As New class1
c1.Raise()
End Sub
End Class
Сейчас этот форум просматривают: нет зарегистрированных пользователей и гости: 30