有關排列的問題(編號：3473)

我們老師出了一題我不會寫,想請教一下
首先輸入兩個數x ,y　 然後會在 list 上排列出這樣的形式
假設 x=5 ,y=3
1 2 3　
　　　 1 2 4
　　　 1 2 5
　　　 2 3 4
　　　 2 3 5
　　　 3 4 5
而且有一個規定,就是要用一個無窮call副程式,然後設定它跳出來的條件,如:
Private Sub Form_Activate()
Dim x As Integer, y As Integer
x = InputBox("輸入x", "輸入x")
y = InputBox("輸入y", "輸入y")
Call sum(x, y)
End Sub
----------------------------------------------------------
Sub sum(ByVal x, ByVal y)
If x = 1 Then
List1.AddItem x
Else
Call sum(x - 1, y)
List1.AddItem x
End If
End Sub
現在我的問題是要怎麼讓它每行排y個數,而且會用上面那種排法ㄋ
ps(上面的範例就是我目前寫的進度,只能排一行)