sPath = Me.tvwBaum.SelectedNode.FullPath
        If sPath.EndsWith("\") And sPath.Length > 3 Then
            sPath = sPath.Substring(0, sPath.Length - 1)
        End If
        '
        Dim oDir As New System.IO.DirectoryInfo(sPath)
        Dim oFiles As System.IO.FileInfo() = oDir.GetFiles("*.png")
        Dim oFile As System.IO.FileInfo
        Me.lstPart.Items.Clear()
        For Each oFile In oFiles
            Me.lstPart.Items.Add(oFile.Name)
        Next