Private Sub StartOrAbort(ByVal flag As Boolean)
            
            If flag Then
                Me.THredIndex.Start()
            Else
                Me.THredIndex.Abort()
            End If
        End Sub

      Private Sub StartOrAbort(ByVal flag As Boolean)
            
            If flag Then
                Me.THredIndex.Start()
            Else
                Me.THredIndex.Abort()
            End If
        End Sub