>214
適当にやってみたけど
-------------------------
Private Declare Function GetTickCount Lib "kernel32" () As Long

Private Const SAMPLE = 1000

Private Sub Command1_Click()
　　Dim I As Long
　　Dim J As Long
　　Dim sTmp As String
　　Dim lTime As Long
　　
　　Dim A(SAMPLE)
　　
　　For I = 0 To SAMPLE
　　　　A(I) = List1.List(I)
　　Next I
　　
　　lTime = GetTickCount
　　For I = 0 To SAMPLE - 1
　　　　For J = SAMPLE To I + 1 Step -1
　　　　　　If A(J) < A(J - 1) Then
　　　　　　　　sTmp = A(J)
　　　　　　　　A(J) = A(J - 1)
　　　　　　　　A(J - 1) = sTmp
　　　　　　End If
　　Next J, I
　　Caption = CStr(SAMPLE) & "Samples Time:" & CStr(GetTickCount - lTime) & "msec"
　　
　　List2.Clear
　　For I = 0 To SAMPLE
　　　　List2.AddItem A(I)
　　Next I
　　
End Sub

Private Sub Form_Load()
　　Dim I As Long
　　For I = 0 To SAMPLE
　　　　List1.AddItem Format$(Rnd, "0.000000")
　　Next I
End Sub
------------------------------------------------
こんなコードで
VBは330msec, Delは100msec位だった。