Public Class GamerInfo
    Public Sub New(ByVal Gamername As String, ByVal Rang As Integer, ByVal _
      iPlayerPoints As Integer)
        Me.GamerName = Gamername
        Me.Rang = Rang
        Me.iPlayerPoints = iPlayerPoints
    End Sub
 
 
    Dim _GamerName As String
    Property GamerName() As String
        Get
            Return _GamerName
        End Get
        Set(ByVal value As String)
            _GamerName = value
        End Set
    End Property
 
    Dim _Rang As Integer
    Property Rang() As Integer
        Get
            Return _Rang
        End Get
        Set(ByVal value As Integer)
            _Rang = value
        End Set
    End Property
 
    Dim _iPlayerPoints As Integer
    Property iPlayerPoints() As Integer
        Get
            Return _iPlayerPoints
        End Get
        Set(ByVal value As Integer)
            _iPlayerPoints = value
        End Set
    End Property
End Class

            Dim NewGamerInfoList As New List(Of GamerInfo)()
            Dim NewGamerInfo As New List(Of GamerInfo)(New GamerInfo() {New _
              GamerInfo("Test", 1, 0)})
            GamerGrid.ItemsSource = NewGamerInfo