Wierd Form and Icon problem

Win 7 Ultimate & VS2012.

I have a strange icon problem We got a process in C# from http://www.codeproject.com/Articles/21202/Reparse-Points-in-Vista an converted it to VB. This problem is described at the rear end of http://social.msdn.microsoft.com/Forums/en-US/vbgeneral/thread/38928c44-119b-4d5f-97ca-fda1fafbd572 

However, although I've added a large number of icons to VB projects this one fails when an icon is added to form1. It no longer lists directories. Adding the icon creates  two handles clauses shown here reason unknown.:

Private Sub RPTreeView_AfterExpand(sender As Object, e As TreeViewEventArgs) ' Handles RPTreeView.AfterExpand
        If e.Action = TreeViewAction.ByKeyboard OrElse e.Action = TreeViewAction.ByMouse Then
            fillNode(e.Node)
        End If
    End Sub

    Private Sub RPTreeView_AfterSelect(sender As Object, e As TreeViewEventArgs) ' Handles RPTreeView.AfterSelect
        If e.Action <> TreeViewAction.Collapse And e.Action <> TreeViewAction.Unknown Then
            fillNode(e.Node)
            If DirectCast(e.Node.Tag, ReparsePoint) Is Nothing OrElse DirectCast(e.Node.Tag, ReparsePoint).Tag = ReparsePoint.TagType.None Then
                normalisedTargetLabel.Text = ""
                actualTargetLabel.Text = ""
            Else
                normalisedTargetLabel.Text = "'" & DirectCast(e.Node.Tag, ReparsePoint).ToString() & "'"
                actualTargetLabel.Text = "'" & DirectCast(e.Node.Tag, ReparsePoint).Target & "'"
            End If
        End If
    End Sub

Renee

"MODERN PROGRAMMING is deficient in elementary ways BECAUSE of problems INTRODUCED by MODERN PROGRAMMING." Me