Dim Canvas1 As B4XCanvas
Canvas1.Initialize(Panel1)
Dim myPath As B4XPath
myPath.Initialize(50dip, 50dip).LineTo(200dip,50dip).LineTo(200dip, 95dip).LineTo(50dip,95dip)
Canvas1.DrawPath(myPath, xui.Color_Black, False, 2dip)
Canvas1.DrawText("Testing", 55dip, 80dip, xui.CreateDefaultFont(32), xui.Color_Black,"LEFT")
Canvas1.Invalidate