B4J Question CoolTime sample - help

Sub Process_Globals
    Private fx As JFX
    Private MainForm As Form
    Private CoolTimeline1 As CoolTimeline
    Private Button1 As Button
    Private Button2 As Button
    Private busy As Boolean
End Sub

Sub AppStart (Form1 As Form, Args() As String)
    MainForm = Form1
    MainForm.RootPane.LoadLayout("1") 'Load the layout file.
    MainForm.Show
    CoolTimeline1.AddItem("Item #1", 50)
    CoolTimeline1.AddItem("Item #2", 20)
    CoolTimeline1.AddItem("Item #3", 80)
    CoolTimeline1.AddItem("Item #4", 80)
    CoolTimeline1.AddItem("Item #5", 80)

    CoolTimeline1.OneAtTheTime = True            'this causes the animation of the last to proceed to it's end
    CoolTimeline1.AddItem("Item #6", 80): wait for Item_Added
    CoolTimeline1.Timer.enabled = False
End Sub

Sub Button1_Click
    If busy Then Return        'ignore clicks until update complete
    busy = True
    CoolTimeline1.Timer.enabled = True
    CoolTimeline1.GetItem("Item #" & Rnd(1, 6)).TargetValue = Rnd(0, 99): wait for Item_Added
    CoolTimeline1.Timer.enabled = False
    busy = False
End Sub

Sub Button2_Click
    MainForm.Close
End Sub

'Changes to CoolTimeline.bas

'    Public Timer As Timer
'    Public OneAtTheTime As Boolean
'    Private NoChange As Boolean

'    If NoChange And OneAtTheTime Then CallSubDelayed(mCallBack, "Item_Added")  as last line in Timer_Tick

Private Sub CalcNewValue (CurrentValue As Float, TargetValue As Float, MaxDelta As Float) As Float
    If CurrentValue <= TargetValue Then
        If CurrentValue < TargetValue Then     NoChange = False    'change
        Return Min(TargetValue, CurrentValue + MaxDelta)
    Else
        NoChange = False    'change
        Return Max(TargetValue, CurrentValue - MaxDelta)
    End If
End Sub