Populating a UserForm

Dear Forum Members,
I need to be able to populate the controls in a userform from the values of the controls of a second userform.
I have used code like

Sub SwapForms(MyForm as UserForm)
UserForm1.tbOne.Value=MyForm.tbOne.Value
UserForm1.tbTwo.Value=MyForm.tbTwo.Value
UserForm1.cbOrder.value=MyForm.cbOrder.Value
etc etc

The problem is that there are 16 textboxes and other controls on the forms and I am sure that there is a more elegant way of coding this .
Can anyone give me a suggestion please?
John