MSFlexGridのソート方法 (ID:101322)

名前

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

本文 Visual Basic 6.0でプログラムしています。 MSFlexGridのタイトルセルをクリックした際に、1度選択すると昇順に 2度目が降順にとなり、以後は交互にソートするようにしたいのですが、 うまくいきません。 解決方法を教えていただけないでしょうか？ 現在のコードは Private Sub MSFlexGrid_Click() With MSFlexGrid .Row = .MouseRow If .Sort = flexSortGenericAscending Then .Sort = flexSortGenericDescending Else .Sort = flexSortGenericAscending End If End With End Sub となっています。 お手数をおかけしますが、よろしくお願いいたします。