Formumuza 1 adet buton 2 adet textbox ekliyorux.Textbox2'nin multline özelliğini etkin hale getiriyoruz ve kodlarımızı yazıyoruz

Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
Dim yazi() As Char = TextBox1.Text.ToCharArray
Dim i As Integer
Dim a As Integer
Dim bosluk As String
TextBox2.Text = ""
For i = 0 To yazi.GetUpperBound(0)
For a = 0 To i * 1
bosluk &= " "
Next
TextBox2.Text &= bosluk + yazi(i) & vbCrLf
bosluk = ""
Next
End Sub