membuat pohon natal dari vb.net menggunakan console

UNTUK BUAT POHON NATAL DI VB.NET (WINDOWS APPLICATION)
DESIGN 2 BUAH TEXT BOX 1 BUTTON
KLIK 2 KALI DIBUTTON, KEMUDIAN MUNCUL FORMNYA...
LALU KETIK
TANGKA.TEXT =""
DIM A AS INTEGER
DIM B AS INTEGER
FOR A = 1 TO TANGKA.TEXT
FOR B = 1 TO TANGKA.TEXT + A -1
IF B > TANGKA -A THEN
THASIL.TEXT &="*"
ELSE
THASIL.TEXT &=" "
END IF
NEXT B
IF B = TANGKA + A - 1 THEN
THASIL.TEXT &= VBCRLF
END IF
NEXT A
FOR A = 1 TO CINT (TANGAKA / 2)
FOR B = 1 TO TANGKA -2
THASIL.TEXT &= " "
NEXT B
TASIL.TEXT &= "[ ]" & VBCRLF
NEXT A
END SUB
END CLASS