Im folgenden Code werden zwei UserForm-Objekte verwendet: UserForm1 und UserForm2. Kopieren Sie diese Prozeduren in das Modul UserForm1. Fügen Sie dann UserForm2 hinzu. Der Titel von UserForm1 wird in dessen Activate-Ereignisprozedur erstellt. Wenn der Benutzer innerhalb des Client-Bereichs von UserForm1klickt, wird UserForm2 geladen und angezeigt. Gleichzeitig wird das Deactivate-Ereignis von UserForm1 ausgelöst, wodurch die Titel vertauscht werden.
' Activate-Ereignis für UserForm1 Private Sub UserForm_Activate() UserForm1.Caption = "Innerhalb des Client-Bereichs klicken" End Sub ' Click-Ereignis für UserForm1 Private Sub UserForm_Click() Load UserForm2 UserForm2.StartUpPosition = 3 UserForm2.Show End Sub ' Deactivate-Ereignis für UserForm1 Private Sub UserForm_Deactivate() UserForm1.Caption = "Ich habe den Fokus verloren." UserForm2.Caption = "Und jetzt gehört der Fokus mir" End Sub