Dim xx,yy As Double
xx = ((100%x)/Activity.Width) / Density
yy = ((100%y)/Activity.Height) / Density
For Each View As View In Activity.GetAllViewsRecursive
View.Width=(View.Width) * xx
View.Left=(View.left) * xx
View.Height=(View.Height) * yy
View.top=(View.top) * yy
Next