'Initializes the object. You can add parameters to this method if needed.
Public Sub Initialize (ax As Int ,ay As Int, aName As String, aParent As Activity)
px = ax
py = ay
pName = aName
pParent = aParent
'*********DRAW PANEL
mPanel.Initialize( "pict")
pParent.AddView(mPanel, (px-1) * Main.px, (py-1) * Main.py, Main.px * 6, Main.py * 2)
pCvs.Initialize(mPanel)
''pCvs.DrawCircle(100dip, 100dip, 50dip, Colors.Green, True, 1)
''mPanel.Invalidate
End Sub
Sub setContext( aValue As String,aLabel As String)
''pLabel.Text = aLabel
''pValue.Text = aValue
Dim cd As ColorDrawable
cd.Initialize ( Colors.ARGB( 255, 128, 0, 0) ,8dip )
mPanel.Background = cd
pCvs.DrawCircle(100dip, 150dip, 20dip, Colors.Green, True, 1)
mPanel.Invalidate
End Sub