向各位老师请教个问题，见附件，我不知如何让他输出了，盼解答谢谢！

[ 本帖最后由 益西翁登 于 2013-2-17 13:40 编辑 ]

提问， 为什么一定要在文本框。

实在是不知道你想用这格式来做什么的。如果你只是想输出的话，那有个最愚蠢的方法：
先把TEXT1的MultiLine设置为TRUE
Private Sub Command1_Click()
    Text1 = "┌──┬──┬──┐" & vbCrLf & "│3  4│8  8│1  6│" & vbCrLf & "│ 七 │ 三 │ 五 │" & vbCrLf & "├──┼──┼──┤" _
            & vbCrLf & "│2  5│4  3│6  1│" & vbCrLf & "│ 六 │ 八 │ 一 │" & vbCrLf & "├──┼──┼──┤" & vbCrLf & _
             "│7  9│9  7│5  2│" & vbCrLf & "│ 二 │ 四 │ 九 │" & vbCrLf & "└──┴──┴──┘"
End Sub
如果不合适的话那见笑了。

不好意思，我刚刚学习VB制作，太多的东西还不懂，不在文体框中显示的话，还有更好的显示框显示的更好吗？

谢谢老师指导，我按您的方法试了试，全排在一行去了，而不能输出一个完整的盘式，盼再给调试一下，谢谢！

[ 本帖最后由 益西翁登 于 2013-2-2 19:33 编辑 ]

先把Text1的MultiLine设置为True，如下图

谢谢seafish011老师，可以排成图形了，还有一个问题请老师指导，如何把左侧阿拉伯数字设为红色，右侧的数字设成兰色？

TextBox是没有这样的功能的。不过有个RichTextBox你可以考虑用下。

With RichTextBox1
    .SelStart = 0
    .SelLength = 5
    .SelColor = vbRed
    .SelStart = 6
    .SelLength = 4
    .SelColor = vbBlue
    .SelLength = 0
End With

谢谢seafish011老师,您有QQ没有？
我的QQ452105239；我把全部代码发给您，请您指导，谢谢！

厉害