Function Debug(point, dt, count)
  idx = GetStringIndex(point)
  If idx = -1 Then
    debug_table.BeginUpdate()
    debug_table.Add point
    debug_table(debug_table.Count - 1).Subitems(0) = dt
    debug_table(debug_table.Count - 1).Subitems(1) = TypeName(dt)
    debug_table(debug_table.Count - 1).Subitems(2) = count
    debug_table.EndUpdate()
  Else
    debug_table.Item(idx).Subitems(0) = dt
    debug_table.Item(idx).Subitems(1) = TypeName(dt)
    debug_table.Item(idx).Subitems(2) = count
  End If
  If not debug_form.Visible Then debug_form.Show()
End Function

Function GetStringIndex(name)
  res = -1
  If debug_table.Count Then
    For i = 0 To debug_table.Count - 1
      If debug_table.Item(i).Text = name Then
        res = i
        Exit For
      End If
    Next
  End If
  GetStringIndex = res
End Function