Public Class Card
    Private Shared idCounter As Integer = 1
    Private id As Integer
    Private boxId As PictureBox
    Private cardImage As Image
    Private cardName As Tuple(Of String, String)
    Private cardLocation As Point
    Private cardHidden As Boolean

    Public Sub New(name As Tuple(Of String, String), Optional hidden As Boolean = False)
        id = idCounter
        idCounter += 1
        boxId = New PictureBox()
        cardName = name
        cardHidden = hidden
        cardImage = Utilities.GetCardImage(name, hidden)
    End Sub

    Public Sub SetLocation(location As point)
        cardLocation = location
    End Sub

    Public Sub SetName(name As Tuple(Of String, String))
        cardName = name
    End Sub

    Public Sub SetHidden(hidden As Boolean)
        cardHidden = hidden
    End Sub

    Public Function GetId() As Integer
        Return id
    End Function

    Public Function GetBoxId() As PictureBox
        Return boxId
    End Function

    Public Function GetName() As Tuple(Of String, String)
        Return cardName
    End Function

    Public Function GetLocation() As Point
        Return cardLocation
    End Function

    Public Function IsHidden() As Boolean
        Return cardHidden
    End Function
End Class