Private Sub Command1_Click()

Dim a As Integer

Dim b As String

a = Text1.Text

b = "pretty"

List1.AddItem (b)

For x = 1 To a

b = b + "pretty"

Next x

End Sub

Private Sub Form_Load()

Label1.Caption = "Tinggi Segitiga"

Text1.Text = " "

List1.Text = " "

Command1.Caption = "Tampilkan "

Label2.Caption = "Segitiga"

End Sub