#N88BASIC
TypeDef LPFN = *Sub()
Class CTest
Private
'lpfn As LPFN この位置で宣言すれば正しい値が表示される
Value As Long
lpfn As LPFN
Sub PrintValue()
Print GetDWord(VarPtr(this))
End Sub
Public
Sub CTest()
Value = 365
lpfn = AddressOf(PrintValue)
End Sub
Sub CallPrintValue()
lpfn()
End Sub
End Class
Sub Main()
Dim Test As CTest()
Test.CallPrintValue()
End Sub
Main()