Private Sub UserForm_Activate()
For Each ctrl In Me.controls
ctrl.Tag = ctrl.Tag & ctrl.Top & ";" & ctrl.Left & ";" & ctrl.Width & ";" & ctrl.Height
Select Case TypeName(ctrl)
Case "TextBox", "Label", "CommandButton", "Frame", "MultiPage", "ListView", "ComboBox", "CheckBox", "OptionButton"
ctrl.Tag = ctrl.Tag & ";" & ctrl.Font.Size
End Select
Next
SetWindowLongA fwa(vbNullString, Me.Caption), -16, &H94CF0080
showw fwa(vbNullString, Me.Caption), 3
End Sub