Dim cv as Canvas
cv.Initialize(calPanels(pnlNumber))
cv.DrawColor(Colors.Red) 'Background
Dim dstRect as Rect
dstRect.Initialize(0,0,calPanels(pnlNumber).Width, calPanels(pnlNumber).Height))
cv.DrawRect(dstRect, Colors.Green, False, 4dip) 'Border color and width