Faydalı olmasını dilerim...
[Resim:
http://www.access-sql.com/attachment.php?aid=10065]
[code=vba]
Private mobjSourceNode As Node
Private mobjTargetNode As Node
Private Sub Form_Load()
Set mobjSourceNode = Nothing
Set mobjTargetNode = Nothing
With Me.TreeView0
'Treeview için gerekli ayarları yap
.ImageList = Me.ImageList1.Object
.LabelEdit = tvwManual
.LineStyle = tvwRootLines
.Style = tvwTreelinesPlusMinusPictureText
.Font.