TextBox’a girilen değer kadar form’a yıldızlı üçgen çizme Vb.Net

Public Class Form1
 
Dim g As Graphics
 
Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
 
Dim i, j As Integer
 
For i = 1 To Val(TextBox1.Text)
 
For j = 1 To i
 
Me.CreateGraphics.DrawString("*", New Font("arial", 30), New SolidBrush(Color.Red), j * 15, i * 15)
 
Next j
 
Next i
 
End Sub
 
End Class

Bir Problem Olursa Özel Mesaj yada Yorum Yazın.
(Kodlar Bana Ait Değildir  Alıntıdır ! Sadece Aynısı Yaptım Paylaştım.)