Private Sub UserForm_Activate()
    UserForm1.Caption = "フォームをクリックしてください。"
End Sub

' UserForm1 の Click イベント
Private Sub UserForm_Click()
    Load UserForm2
    UserForm2.StartUpPosition = 3
    UserForm2.Show
End Sub

' UserForm1 の Deactivate イベント
Private Sub UserForm_Deactivate()
    UserForm1.Caption = "フォーカスを失いました。"
    UserForm2.Caption = "フォーカスを取得しました。"
End Sub