Public Class Tower
    Inherits PictureBox

    Dim r, c As Integer
    Dim a As Boolean
    Dim l As Integer
    Shared counter As Integer = 0

    Public Sub New(ByVal ro As Integer, ByVal co As Integer)
        Me.row = ro
        Me.column = co
        Me.Size = New Size(32, 32)
        Me.Location = New Point(row * 32, column * 32)
        Me.level = 1
        Me.attacking = False
        Me.SizeMode = PictureBoxSizeMode.StretchImage
        Me.Image = Image.FromFile("dartMonkey.png")
        Me.BringToFront()
        counter = counter + 1
    End Sub
    Public Shared Property TowerCount As Integer

        Get
            Return counter
        End Get
        Set(ByVal value As Integer)

        End Set
    End Property
    Public Property row As Integer
        Get
            Return r
        End Get
        Set(ByVal value As Integer)
            r = value
        End Set
    End Property
    Public Property column As Integer
        Get
            Return c
        End Get
        Set(ByVal value As Integer)
            c = value
        End Set
    End Property
    Public Property attacking As Boolean
        Get
            Return a
        End Get
        Set(ByVal value As Boolean)
            a = value
        End Set
    End Property
    Public Property level As Integer
        Get
            Return l
        End Get
        Set(ByVal value As Integer)
            l = value
        End Set
    End Property
End Class