>>767
ありがとうございます〜。一応自分でも座標つくるところまではやってみたんですが、そっちのほうがすっきりしてますね（笑）。

Private X As Long, Y As Long, i As Long

Dim Xl(100) As Double
Dim Yl(100) As Double

Private Sub Command1_Click()

For i = 0 To 99
Randomize
ScaleMode = 3
X = Int(10000 * Rnd)
Y = Int(10000 * Rnd)
Xl(i) = X
Yl(i) = Y
Next i
End Sub

↑こんなんです(^-^;
クイックソートはこれから実装してみますー。