Private Sub Label1_MouseDown(ByVal Button As Integer, _
ByVal Shift As Integer, ByVal X As Single, ByVal Y As Single)
If Frame1.Tag = "" Then
txtFirst.SetFocus
Else
Controls(Frame1.Tag).SetFocus
End If
End Sub
Private Sub txtFirst_Exit(ByVal Cancel As MSForms.ReturnBoolean)
Frame1.Tag = txtSecond.Name
End Sub