ヒープソートで降順に並べるには？ (ID:122391)

名前

ホームページ(ブログ、Twitterなど)のURL (省略可)

本文 初めまして、VB6.0を最近始めたものです。 今、VB6で数字をヒープソートで降順にソートしたいのですが、うまくいきません。Webで探しましたが見つかりませんでした。どのようにしたらうまくいくかお教え下さい。宜しくお願いします。