#prompt
TypeDef EventProc = *Sub(Index As Long)
Type EVENTSTRUCT
Event As EventProc
End Type
Sub TestProc(Index As Long)
Print Str$(Index)
End Sub
Sub Test()
Dim A As EVENTSTRUCT, C As *EVENTSTRUCT
A.Event = AddressOf(TestProc)
C = VarPtr(A)
C->Event(1)
End Sub
Test()