L = p.GetView(FindViewIndex(p, "HimK"))
L.Text = Utils.GetAppString("ProfileHimLb")
L.top = top1
measure = StrUtils.MeasureMultilineTextHeight(L, L.Text)
top1 = top1 + measure + 9dip
L = p.GetView(FindViewIndex(p, "HimAgeK"))
L.Text = Utils.GetAppString("ProfileAgeLb")
L1 = p.GetView(FindViewIndex(p, "HimAgeV"))
L1.Text = pGeneralInfo.ageMale
L.top = top1
L1.top = top1
measure = StrUtils.MeasureMultilineTextHeight(L1, L1.Text)
top1 = top1 + measure + 8dip
L = p.GetView(FindViewIndex(p, "HimProfessionK"))
L.Text = Utils.GetAppString("ProfileProfessionLb")
L1 = p.GetView(FindViewIndex(p, "HimProfessionV"))
L1.Text = pGeneralInfo.professionM
L.top = top1
L1.top = top1
measure = StrUtils.MeasureMultilineTextHeight(L1, L1.Text)
top1 = top1 + measure + 8dip
L = p.GetView(FindViewIndex(p, "HimSexAttitudeK"))
L.Text = Utils.GetAppString("ProfileSexAttitudeLb")
L1 = p.GetView(FindViewIndex(p, "HimSexAttitudeV"))
L1.Text = pGeneralInfo.sexOrientationM
L.top = top1
L1.top = top1
measure = StrUtils.MeasureMultilineTextHeight(L1, L1.Text)
top1 = top1 + measure + 8dip
L = p.GetView(FindViewIndex(p, "HimDepilationK"))
L.Text = Utils.GetAppString("ProfileDepilationLb")
L1 = p.GetView(FindViewIndex(p, "HimDepilationV"))
L1.Text = pGeneralInfo.depilationM
L.top = top1
L1.top = top1
measure = StrUtils.MeasureMultilineTextHeight(L1, L1.Text)
top1 = top1 + measure + 8dip
L = p.GetView(FindViewIndex(p, "HimSexKissK"))
L.Text = Utils.GetAppString("ProfileSexKissLb")
L1 = p.GetView(FindViewIndex(p, "HimSexKissV"))
L1.Text = pGeneralInfo.kissM
L.top = top1
L1.top = top1
measure = StrUtils.MeasureMultilineTextHeight(L1, L1.Text)
top1 = top1 + measure + 28dip
'continue to position other labels....