Private Sub LoadWallpapers()
 
        Try
            Dim xtr As New XmlTextReader(Application.StartupPath & _
              "\Wallpapers.xml")
            xtr.ReadStartElement()
            Dim nCount As Integer = Integer.Parse(xtr.ReadElementString( _
              "Count"))
 
            While nCount > 0
                Dim fileInfo As New FileInfo(xtr.ReadElementString("Wallpaper"))
                Dim wallpaperProperties As New WallPaperProperties
                wallpaperProperties.Wallpaper = fileInfo.FullName
                wallpaperProperties.Position = DirectCast(Integer.Parse( _
                  xtr.ReadElementString("Position")), _
                  WallPaperProperties.WallpaperPos)
                wallpaperProperties.BkColor = Color.FromArgb(Integer.Parse( _
                xtr.ReadElementString("Colour")))
 
                arrayWallpapers.Add(wallpaperProperties)
                nCount = nCount - 1
            End While
            xtr.Close()
        Catch ex As Exception
            MessageBox.Show(ex.Message)
        End Try
 
        RefreshListBox()
    End Sub

Public Class WallPaperProperties
 
    Public Enum WallpaperPos
        Center = 0
        Tited = 1
        Streched = 2
    End Enum
 
    Public Enum Sort
        Ascending = 0
        Descending = 1
    End Enum
 
    Public strWallpaper As String = ""
    Public pos As WallpaperPos
    Public myBkColor As Color
    Private boolMultiMonitor As Boolean
    Private CountMon As Integer = 0
 
    Public Property MultiMonitor() As Boolean
 
        'Anzahl der Monitore ermitteln
        Get
            CountMon = Windows.Forms.SystemInformation.MonitorCount
            If CountMon > 1 Then
                MultiMonitor = True
            Else
                MultiMonitor = False
            End If
        End Get
        Set(ByVal value As Boolean)
            boolMultiMonitor = value
        End Set
    End Property
 
    Public Property Wallpaper() As String
        Get
            Wallpaper = strWallpaper
        End Get
 
        Set(ByVal value As String)
            strWallpaper = value
        End Set
    End Property
 
    Public Property Position()
        Get
            Position = pos
        End Get
        Set(ByVal value)
            pos = value
        End Set
    End Property
 
    Public Property BkColor()
        Get
            BkColor = myBkColor
        End Get
        Set(ByVal value)
            myBkColor = value
        End Set
    End Property
End Class