Sub DrawLinesOnPanel(pnl As Panel)
Dim CanvasHolder AsCanvas
CanvasHolder.Initialize(pnl )
CanvasHolder.DrawLine(10, 10, 10, pnl .Height - 20, Colors.RGB(127,176,0), 1)
CanvasHolder.DrawLine(10, pnl .Height - 20, pnl .Width - 20, pnl .Height - 20, Colors.RGB(127,176,0), 1)
CanvasHolder.Refresh
End Sub