Public Sub ShowTopbar(ByVal Show As Boolean)
        If Not NpanTopbar.Height > 30 Then
            If Show Then
 
                Do While NpanTopbar.Height < 30
                    NpanTopbar.Height += 5
                Loop
                If NpanTopbar.Height > 30 Then NpanTopbar.Height = 30 : _
                  SetTopbarFlowLayoutPanels()
                'If SetBarBut Then SetTopBarButtonSize(1) : SetBarBut = False
            Else
                Dim sw As Stopwatch = Stopwatch.StartNew ' Vent med at lade 
                ' panTopBar forsvinde
                Do Until sw.ElapsedMilliseconds >= 750
                Loop
                Do While NpanTopbar.Height > 1
                    NpanTopbar.Height -= 5
                Loop
                If NpanTopbar.Height < 1 Then NpanTopbar.Height = 1
                'SetBarBut = True
            End If
        End If
    End Sub