label not showing properly/not showing at all

[tweakmy]

Hi to all expert, ladies coders and gentlemen coders,
I m quite newbie in this. I just started vb.net not long ago..because i was too crazy bout making an application for my own phone. as for now, i m using .net compact framework to code for my wm6.
My program is easy. the purpose is to edit a .ini file by pointing the correct program path for each line .in the ini file.
in my program, a treeview is enabled. By selecting on the treenode, this will return me the full path of a .exe file/app. Unfortunately, in some folders, there are many subfolders (especially: /window) so it would take some time to show the treenode. so, i have made a label to appear when click to expand the tree and disappear the label before end sub. when, i put it to test, the label is not appearing at all when i click to expand "/window" folder in treeview. so what am i mising here?

below is my codemarked in red is the label to appear and disappear)
*************** *************** *************** *********this is configure the mouse click event
Private Sub treeView1_Befor eExpand(ByVal sender As Object, _
ByVal e As System.Windows. Forms.TreeViewC ancelEventArgs) _
Handles treeView1.Befor eExpand
plsWaitlbl.Visi ble = True
'MsgBox("start" )
' —-if leaf node then exit—-

If e.Node.ImageInd ex = icoFile Then Return

' —-remove the dummy node and display

' the subdirectories and files—-

Try

e.Node.Nodes.Cl ear() ' clears all the nodes and...

displayChildNod es(e.Node) ' create the nodes again

Catch err As Exception

MsgBox(err.ToSt ring)

End Try

' —-change the icon for this node to open—-

If e.Node.GetNodeC ount(False) > 0 Then

e.Node.ImageInd ex = icoClose

e.Node.Selected ImageIndex = icoOpen

End If
plsWaitlbl.Visi ble = False
'MsgBox("stop")
End Sub

*************** *************** *************** ****** i m sure this is show the subdirectories and file
Private Sub displayChildNod es(ByVal parentNode As System.Windows. Forms.TreeNode)

Dim FS As New DirectoryInfo(s tripExtraSlash _
(parentNode.Ful lPath))
Dim dirInfo As DirectoryInfo
Dim fileInfo As FileInfo
Try
' —-displays all dirs—-
For Each dirInfo In FS.GetDirectori es()
' —-create a new node to be added—-
Dim node As New TreeNode
node.Text = dirInfo.Name ' name of file or dir
node.ImageIndex = icoClose
node.SelectedIm ageIndex = icoOpen
parentNode.Node s.Add(node)
' —-add the dummy node—-
node.Nodes.Add( "")
Next

Catch err As Exception
MsgBox(err.ToSt ring)
End Try
Try
' —display all files—-

For Each fileInfo In FS.GetFiles()
If fileInfo.Extens ion = ".exe" Or fileInfo.Extens ion = ".lnk" Then
' —-create a new node to be added—-

Dim node As New TreeNode

node.Text = fileInfo.Name

node.ImageIndex = icoFile

node.SelectedIm ageIndex = icoFile

parentNode.Node s.Add(node)
End If
Next

Catch err As Exception
MsgBox(err.ToSt ring)
End Try

End Sub
*************** *************** *************** ******
Public Function stripExtraSlash (ByVal str As String) As String
' —-strip away the extra "\" for
' subdirectories. e.g. \\My documents

Dim path As String
If str.Length > 1 And (Mid(str, 1, 1) = "\") Then
path = Mid(str, 2, str.Length - 1)
Else
path = str
End If
Return path

End Function
*************** *************** *************** ************thi s to set the selected node path to the textbox
Private Sub MenuSelect_Clic k(ByVal sender As System.Object, ByVal e As System.EventArg s) Handles MenuSelect.Clic k
pathName = stripExtraSlash (treeView1.Sele ctedNode.FullPa th)
'MsgBox(pathNam e)
appPathtxt.Text = pathName

End Sub

Please enlighten me...