B4J Question TreeView again

Sub fillTree
    For i = 1 To mf.Size
        Dim r As record=mf.Get(i)
        'If r.c1=0 Then
            If r.parent = 0 Then
                Dim ti As TreeItem
                ti.Initialize("ti", r.c2)
            Else if r.parent = 1 Then
                Dim cti As TreeItem
                cti.Initialize("cti", "My father " & ti.Text)
                ti.Children.Add(cti)
            Else
                Dim dti As TreeItem
                dti.Initialize("dti", "My brother " & cti.Text)
                cti.Children.Add(dti)
            End If
            tv.Root.Children.Add(ti)
        'End If
    Next
End Sub