Membuat Segitiga Bilangan dengan VB6

berikut koding untuk menampilkan / membuat segitiga bilangan menggunakan VB6 dengan inputan sembarang. pada contoh diatas saya menginputkan nilai 8.

Private Sub Form_Load()
Form1.Show
Form1.FontSize = 14
Form1.FontBold = True
n = InputBox("Inputkan n", "input")
For i = 1 To n
For j = 1 To i
Print i;
Next
Print
Next
End Sub

Untuk langkah-langkahnya silahkan kunjungi posting saya sebelumnya Coding Cara mencari n bilangan genap pertama dengan VB 6 dan Coding Cara mencari n bilangan Ganjil pertama dengan VB 6