Fenstergröße

Aviso/frmHauptfenster.vb

@@ -4520,6 +4520,17 @@ Public Class frmHauptfenster
         Dim f As New frmNorsware()
         f.ShowDialog(Me)
     End Sub
+
+    Private Sub FenstergrößeVariabelToolStripMenuItem_Click(sender As Object, e As EventArgs) Handles FenstergrößeVariabelToolStripMenuItem.Click
+        If Me.FormBorderStyle = FormBorderStyle.None Then
+            Me.FormBorderStyle = FormBorderStyle.Sizable
+            Panel4.Visible = False
+        Else
+            Me.FormBorderStyle = FormBorderStyle.None
+            Panel4.Visible = True
+        End If
+
+    End Sub
 End Class
 
 Public Class AvisoStatusFunctions