Activity.LoadLayout("1")
Canvas1.Initialize(Panel1)
Dim Rect1,Rect2,Rect3 As Rect
Rect1.Initialize(0,0,33%x,Panel1.Height)
Rect2.Initialize(33%x,0,88%x,Panel1.Height)
Rect3.Initialize(88%x,0,100%x,Panel1.Height)
Canvas1.DrawRect(Rect1,Colors.Gray,True,1)
Canvas1.DrawRect(Rect2,Colors.Red,True,1)
Canvas1.DrawRect(Rect3,Colors.Blue,True,1)