پيدا كردن سطح در درخت در vb6

[dell816]

سلام
من يك جدول در sql server دارم كه دو فيلد دارد كه يكي id و ديگري parentID است ، و از روي ان يك tree در vb6 ساخته شده است،
ميخواهم بدانم با چه دستوري در vb ميتوانم بدانم الان روي كدام سطح tree قرار دارم.

مثال: علي
رضا
امير
حسين

فرض كنيد روي امير قرار دارم ، با دستوري بمن بگويد سطح ٢

[vbhamed]

سلام
Private Sub TreeView1_NodeClick(ByVal Node As MSComctlLib.Node)
Dim s() As String
s = Split(Node.FullPath, "\")
MsgBox UBound(s)
End Sub

[dell816]

سلام

وقتی روی نود کلیک میکنم با این Error مواجه میشوم :

Automation Type not supported in Visual basic

[vbhamed]

سلام
اول اینکه باید بگید روی کدوم دستور این خطا رو میده
دوم هم اینکه از کدوم کنترل استفاده میکنید چیزی که من استفاده کردم Microsoft Windown Common Controls 6 بوده

[dell816]

سلام و با تشکر از پاسخگویی

من هم از همین کنترل استفاده نمودم : Tree View Active X control 6
روی نود که کلیک میکنم همان پیغام خطا را میدهد.

متشکرم

[vbhamed]

سلام
اما اين اسمی که شما گفتین با چیزی که من گفتم فرق داشت
در هر حال برنامتون رو بزارید تا بررسی بشه

[dell816]

119111

سلام

فرم مورد نظر پیوست شد.

[vbhamed]

سلام
این چه برنامه ای هست گذاشتید، خودتون یکبار اجراش کردین ؟
لطفا یک پروژه ایجاد کنید و فایل رو درونش قرار بدین، اشکالات اجرایی رو بگیرید و بعد بفرستید