Private Function GetImage(ByVal imageFileName As String) As Image
            Dim img As Image = Image.FromFile(imageFileName)
            If IO.Path.GetExtension(imageFileName).ToUpper.Equals("WMF") Then _
              Return img
            Dim s As New IO.MemoryStream
            img.Save(s, Imaging.ImageFormat.Bmp)
            Dim bmp As New Bitmap(s)
            s.Close()
            Return CType(bmp, Image)
        End Function

        Private Sub FillImageListAndNode(ByVal fileName As String, _
        ByRef NodeColl As TreeNodeCollection)
 
            Dim img As Image = Me.GetImage(fileName)
            imgList.Images.Add(img)
            idx += 1
            NodeColl.Add(New MyTreeNode(fileName, MyTreeNode.NodeType.IsImage, _
              idx))
        End Sub