Sub Set_Layout()
Dim L,T,W,H As Int
Dim Result As String
Dim CurView As View
For i = 0 To (Activity.NumberOfViews-1)
CurView=Activity.GetView(i)
L = (CurView.left * 100 / Activity.Width)
T = (CurView.Top * 100 / Activity.Height)
W = (CurView.Width * 100 / Activity.Width)
H = (CurView.Height * 100 / Activity.Height)
Result=L & "%x, " & T & "%y, " & W & "%x, " & H & "%y"
Activity.Title=Result
CurView.SetLayout(L & "%x", T & "%y", W & "%x", H & "%y")
Next
End Sub