The reasons that the proportions aren't correct is that as I mentioned in my response to your previous post, the order of the parts of the Move method are out of order. It should be

Controls(I).Move .LeftProportions * ScaleWidth, _
.TopProportions * ScaleHeight, _
.WidthProportions * ScaleWidth, _
.HeightProportions * ScaleHeight

and not

Controls(I).Move .LeftProportions * ScaleWidth, _
.TopProportions * ScaleHeight, _
.HeightProportions * ScaleHeight, _
.WidthProportions * ScaleWidth,