【求助】乘法表的显示效果不满意，请帮忙优化！

【求助】乘法表的显示效果不满意，请帮忙优化！
刚开始学 在学For的时候想用for做一个能够输出乘法表的题
代码如下：
Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
        Dim intCS As Integer
        Dim intBS As Integer = 0
        ListBox1.Items.Clear()
        For intBeiShu As Integer = 1 To 9
            intBS = intBS + 1
            intCS = 0
            For intChengShu As Integer = 1 To intBS
                intCS = intCS + 1
                Dim intJi As Integer = intCS * intBS
                ListBox1.Items.Add(intCS & "x" & intBS & "=" & intJi)
            Next
        Next
    End Sub
以上虽然能显示
1x1=1
至
9x9=81
但是我想要的效果是：
1x1=1
1x2=2  2x2=4
.........
1x9=9  2x9=18  3x9=27  4x9=36  5x9=45  6x9=54  7x9=63  8x9=72  9x9=81
不知道有什么办法可以得到乘法表的显示效果。