VB中怎样输出所有的排列组合情况

如题，怎么输出所有的排列组合的情况啊~用下面的编程运行~text中显示结果闪的很快，根本就看不清是哪些排列组合~
如何改善？
Dim Pwd As String

Function NFormM(ByVal iStart As Integer, iEnd As Integer, Num As Integer, Optional Str As String)
Dim i As Integer
If Num = 0 Then
With Text1
.Text = Text1.Text & Str & vbNewLine
.SelStart = Len(.Text)
End With
Else
For i = iStart To iEnd
DoEvents
NFormM i + 1, iEnd, Num - 1, Str & Mid(Pwd, i, 1)
Next
End If
End Function

Private Sub Command1_Click()
Dim out(), i As Integer, s As String
Text1.Text = ""
NFormM 1, Len(Pwd), Val(Combo1.Text)
End Sub

Private Sub Form_Load()
Dim i As Integer
With Combo1
For i = 1 To 12
.AddItem i
Pwd = Pwd & Chr(64 + i)
Next
Print Pwd
End With
End Sub
就是可以把所有的排列组合全部显示出来~

VB中怎样输出？ 请教VB高手：如何打印出排列组合的所有项目 VB输出(print)里所有的标点 急急急～～VB中实现排列组合的问题 急~~~把vb输出两个数之间的所有素数放入文本框中 用VB编程在文本框text1中输出100～200之间的所有素数 在VB程序设计中输出1000以内所有完数 matlab 中什么语句可以得到排列组合的所有情况 vb中怎样把txt控件的查询记录输出到excel表格中 VB 中怎样清空某窗体中的所有TextBox 的内容