27/7/2010

Public Class MyPanel

    Inherits Panel

    Private _ThisPet As Pet

    Private _PanelLabel As Label

    Public Sub New(ByVal APet As Pet, ByVal PanelLocation As String)

        _ThisPet = APet

        _PanelLabel = New Label

        'fLUFFY X:1 Y:1

        _PanelLabel.Text = _ThisPet.getPetName & " " 

        &   PanelLocation

        Me.Controls.Add(_PanelLabel)

    End Sub

End Class