رسم مثلث خیام پاسکال

با سلام خدمت اساتید،
بنده خواستم یه برنامه رسم مثلث خیام پاسکال بنویسم ولی با مشکل سطر ها و ستون ها مواجه شدم!
و خوب تنها مشکلم اینه که به صورت یه مثلث قائم الزاویه چاپ میشه و هر کاری می کنم با استفاده از Tab (که برای کشیدن مثلث متساوی الساقین و ...) استفاده میشه تا در سطر و ستون های درست نمایش بده نمیشه!
این هم کد های من:
کسی می تونه راهنمایی کنه؟

کد:

---

Private Function c(n As Integer, i As Integer) As Integer
 
    Dim a As Integer
 
    a = n - i
 
    c = f(n) / (f(a) * f(i))
 
End Function
 
Private Function f(n As Integer) As Double
 
    javab = 1
 
    For a = 1 To n
 
        javab = a * javab
 
    Next a
 
    f = javab
 
End Function
 
Private Sub Command1_Click()
 
    Dim n As Integer
 
    Dim i As Integer
 
for n=0 to 15
 
        While i <= n
 
            Print " "; c(n, i); " ";
 
            i = i + 1
 
        Wend
 
        Print
 
        i = 0
 
      next n
 

End Sub

---

البته مسلماً روش های دیگه ای هم برای رسم هست که خوشحال میشم اونها رو هم بیان کنید.
با تشکر

ممنون از توجه...
البته یه الگوریتم پیدا کردم ولی هنوز هم روی روش خودم پا فشاری دارم....

کد:

---

Private Sub Command1_Click()
Dim startl, endr, row, coll, colr, i, j, n
n = Val(InputBox(""))
ReDim a(1 To n, 1 To 2 * n) As Integer
endr = n + 1
row = 2
startl = n - 1
a(1, n) = 1
While row < n
For coll = startl To n
a(row, coll) = a(row - 1, coll - 1) + a(row - 1, coll + 1)
Next
For colr = n + 1 To endr
a(row, colr) = a(row - 1, colr - 1) + a(row - 1, colr + 1)
Next
startl = startl - 1
row = row + 1
endr = endr + 1
Wend
For i = 1 To n
For j = 1 To 2 * n
If a(i, j) = 0 Then Me.ForeColor = Me.BackColor Else Me.ForeColor = RGB(Int(Rnd * 255), Int(Rnd * 255), Int(Rnd * 255))
Print a(i, j);
Next
Print
Next
 
 
 
End Sub

---

دوستان لطف كنن و توضيحى در مورد اين فرم مثلثها بدن كه ما هم لنگيم
كلا شكلهاى مثلثى