The following lines were added (+) and removed (-):
Option Explicit Private Sub cForms2_Click() tStandard.Text = cStandard.Value tForms2.Text = cForms2.Value End Sub Private Sub cStandard_Click() tStandard.Text = cStandard.Value tForms2.Text = cForms2.Value End Sub Private Sub Form_Load() tStandard.Text = cStandard.Value tForms2.Text = cForms2.Value End Sub