Membuat Node Dan Subnote Pada TreeView

PERSIAPAN
NO	COMPONENTS			KETERANGAN
1.	Microsoft Windows Common Controls 6.0 (Sp6)			Cara menambahkannya adalah dengan menekan CTRL+T atau tekan menu Project dan pilih Components
PERSIAPAN			PROPERTIES
NO	CONTROL	ITEM	NAME	VALUE	KETERANGAN
2.	TreeView	1
3.	ImageList	1			Tambahkan 2 icon

Masih bingung masukkin icon ke ImageList bisa baca Disini

Gambar Membuat Node Dan Subnote Pada TreeView

Masukkan souce ini ke dalam Form :Private Sub Form_Load() Dim pohon As Node 'Set Image TreeView1.ImageList = ImageList1 'Set Pohon Treeview Set pohon = TreeView1.Nodes.Add(, tvwChild, "trA", "Ortu A", 1) Set pohon = TreeView1.Nodes.Add(, tvwChild, "trB", "Ortu B", 2) Set pohon = TreeView1.Nodes.Add("trA", tvwChild, "trA1", "AnakA1", 1) Set pohon = TreeView1.Nodes.Add("trB", tvwChild, "trA2", "AnakB1", 1) Set pohon = TreeView1.Nodes.Add("trB", tvwChild, "tr21", "AnakB2", 2) pohon.EnsureVisible TreeView1.BorderStyle = ccFixedSingle End Sub Private Sub TreeView1_NodeClick(ByVal Node As MSComctlLib.Node) MsgBox Node End Sub