Как растянуть форму так, чтобы была видна кнопка Пуск и панель задач?

Option Explicit
Private Declare Function FindWindow Lib "user32.dll" Alias "FindWindowA" (ByVal lpClassName As String, ByVal lpWindowName As String) As Long
Private Declare Function ShowWindow Lib "user32.dll" (ByVal hWnd As Long, ByVal nCmdShow As Long) As Long
 
Sub main()
    ShowWindow FindWindow(vbNullString, UserForm1.Caption), 3&
End Sub

Private Sub UserForm_Initialize()
    If Application.WindowState = xlNormal Or Application.WindowState = xlMinimized Then
        Application.WindowState = xlMaximized
        Me.Width = Application.Width - 5
        Me.Height = Application.Height - 5
        Application.WindowState = xlNormal
    Else
        Me.Width = Application.Width - 5
        Me.Height = Application.Height - 5
    End If
    
    Me.Top = 0
    Me.Left = 0
End Sub

Dim OldHeight, OldWidth, OldTop, OldLeft
 
Private Sub CommandButton1_Click()
    If CommandButton1.Caption = "Растянуть" Then
        OldWidth = Me.Width
        OldHeight = Me.Height
        OldTop = Me.Top
        OldLeft = Me.Left
        If Application.WindowState = xlNormal Or Application.WindowState = xlMinimized Then
            Application.WindowState = xlMaximized
            Me.Width = Application.Width - 5
            Me.Height = Application.Height - 5
            Application.WindowState = xlNormal
        Else
            Me.Width = Application.Width - 5
            Me.Height = Application.Height - 5
        End If
        Me.Top = 0
        Me.Left = 0
        CommandButton1.Caption = "Нормализовать"
        Exit Sub
    End If
    
    If CommandButton1.Caption = "Нормализовать" Then
        Me.Width = OldWidth
        Me.Height = OldHeight
        Me.Top = OldTop
        Me.Left = OldLeft
        CommandButton1.Caption = "Растянуть"
    End If
    
End Sub