Private Function DeserializeFromXML() As List(Of Keys)
        Dim deserializer As New XmlSerializer(GetType(List(Of Keys)))
        Dim textReader As TextReader = New StreamReader("C:\keys.xml")
        Dim movies As List(Of Keys)
        temp = DirectCast(deserializer.Deserialize(textReader), List(Of Keys))
        textReader.Close()
        Return temp
    End Function

<?xml version="1.0" encoding="utf-8"?>
<ArrayOfKeys xmlns:xsi="http://www.w3.org/2001/XMLSchema-instance" _
  xmlns:xsd="http://www.w3.org/2001/XMLSchema">
  <Keys Key="nummer1">
  	 <Part Partname="Part1">
    	<Keystroke>1</Keystroke>
    </Part>
     <Part Partname="Part2">
    	<Keystroke>2</Keystroke>
    </Part>
  </Keys>
  <Keys Key="nummer2">
  	 <Part RemoteName="Part1">
    	<Keystroke>3</Keystroke>
    </Part>
     <Part RemoteName="Part2">
    	<Keystroke>4</Keystroke>
    </Part>
  </Keys>
</ArrayOfKeys>

Public Class Keys
    <XmlAttribute("Key")> _
    Public Property Keyname() As String
        Get
            Return m_Keyname
        End Get
        Set(ByVal value As String)
            m_Keyname = value
        End Set
    End Property
    Private m_Keyname As String
 
    <XmlElement("Partname")> _
    Public Property Partname() As String
        Get
            Return m_Partname
        End Get
        Set(ByVal value As String)
            m_Partname = value
        End Set
    End Property
    Private m_Partname As String
 
    <XmlElement("Keystroke")> _
    Public Property Keystroke() As String
        Get
            Return m_Keystroke
        End Get
        Set(ByVal value As String)
            m_Keystroke = value
        End Set
    End Property
    Private m_Keystroke As String
End Class