data

-

user_data pointer passed to StartMaple ()

Function QueryInterrupt(ByVal data As Long) As Long

Public ShouldStop As Boolean

ShouldStop = False

Public Function QueryInterrupt(ByVal data As Long) As Long

   If ShouldStop Then

       MainForm.StopButton.Caption = "Stop"

       ShouldStop = False

       QueryInterrupt = True

   Else

       QueryInterrupt = False

   End If

End Function

Private Sub StopButton_Click()

   If Screen.MousePointer = vbHourglass Then

       ShouldStop = True

       StopButton.Caption = "Stopping ..."

   End If

End Sub

' assignment to MapleCallback entry

cb.lpQueryInterrupt = GetProc(AddressOf QueryInterrupt)

' test statement that will invoke the CallBackCallBack

EvalMapleStatement kv, "do end do;"  'infinite loop