Private Sub Button1_Click(sender As System.Object, e As _
  System.Windows.RoutedEventArgs) Handles Button1.Click
        Me.Width = 700
        Me.Height = 700
        'Hier einen Befehl zum Zentrieren
    End Sub

________
Alle Angaben ohne Gewähr. Keine Haftung für Vorschläge, Tipps oder sonstige Hilfe, falls es schiefgeht, nur Zeit verschwendet oder man sonst nicht zufrieden ist

    Me.Top = (SystemInformation.WorkingArea.Height - Me.Height) \ 2
    Me.Left = (SystemInformation.WorkingArea.Width - Me.Width) \ 2

________
Alle Angaben ohne Gewähr. Keine Haftung für Vorschläge, Tipps oder sonstige Hilfe, falls es schiefgeht, nur Zeit verschwendet oder man sonst nicht zufrieden ist