vb msflexgrid如何按列排序

colsel=某列数值
msflexgrid.sort=1~8

首先在 窗体上建立三个列表框 分别为 list1 list2 list 3 (三个列表框稍微大点，因为有60个数哦~)
然后是代码：
Option Explicit

Private Sub Form_Click()
Dim i As Integer
Dim j As Integer
Dim k As Integer
Dim n(60) As Integer
For i = 1 To 60
Randomize
n(i) = Int(Rnd * (101) + 100)
List1.AddItem n(i)
Next i
For j = 1 To 60
If n(j) Mod 2 = 0 Then
List2.AddItem n(j)
End If
Next j
For k = 1 To 60
If n(k) Mod 2 = 1 Then
List3.AddItem n(k)
End If
Next k

End Sub

我建立的是form-click事件哈，你也可以建立别的。然后点击窗体空白处，就可以知道结果了。
自己装了VB，代码与设计我都试过了，完全正确，不信自己试试..