Im folgenden Beispiel werden die Ereignisse Activate und Click verwendet, um zu veranschaulichen, wie das Resize-Ereignis des UserForm-Objekts ausgelöst wird. Sobald der Benutzer auf den Client-Bereich des Formulars klickt, wird das Formular vergrößert oder verkleinert, und die neue Höhe wird in der Titelleiste angegeben. Beachten Sie, daß die Tag-Eigenschaft verwendet wird, um die ursprüngliche Höhe des UserForm-Objekts zu speichern.
' Activate-Ereignis für UserForm1 Private Sub UserForm_Activate() UserForm1.Caption = "Zum Vergrößern auf das Formular klicken" Tag = Height ' Ursprüngliche Höhe speichern. End Sub ' Click-Ereignis für UserForm1 Private Sub UserForm_Click() Dim NewHeight As Single NewHeight = Height ' Kleines Formular vergrößern. If NewHeight = Val(Tag) Then Height = Val(Tag) * 2 Else ' Großes Formular verkleinern. Height = Val(Tag) End If End Sub ' Resize-Ereignis für UserForm1 Private Sub UserForm_Resize() UserForm1.Caption = "Neue Höhe: " & Height & " " & " Zum Ändern der Größe auf das Formular klicken" End Sub