Три звездочки в ряд..

[Leon_]

Три звездочки в ряд..
Старший прапорщик? или генерал-полковник?
или "коньяк" типа бренди?

[A.A.Z.]

Не-а, Продвинутый пользователь!
А можно вопрос, к чему тема?

[GAGArin]

А можно вопрос, к чему тема?

Типа юмор

[Leon_]

Да, типа шутка такая
Как это говорят -- вроде того, что всякие смешные ситуации, анекдоты и т.п. возникают именно в том контексте, где присутствуют 2 или более смысла

[san*]

Да, типа шутка такая
Как это говорят -- вроде того, что всякие смешные ситуации, анекдоты и т.п. возникают именно в том контексте, где присутствуют 2 или более смысла

Class Situation
-------------------------------------------
Public Declare Function EnumSences Lib "MyBrain.dll" Alias "EnumSencesFromContextWA" (ByRef Context As Any, ByRef Sence As Long, ByRef Count as Long) As Long

Private Sences(1 To 100) as Sence
Public Event AriseAnegdot (Sence As Sence)
Property Let Situation(ByVal MyContext As Variant)
Dim Count = 0
EnumSences MyContext, Sences(1), Count
NewSence=Sences(1)
If Count>=2 Then
For i=2 To Count
NewSence = NewSence Or Sences(i)
Next
RaiseEvent AriseAnegdot(NewSence)
EndIf
End Property