Рабочая область

[abbat]

Подскажите, можно ли как-то сделать оабочую область так, чтобы окна разворачивались не на всю высоту а оставляли место 30 пкс. поб свой таск бар.
Заранее благодарен.

[Admiralisimys]

abbat так форма и так не обрезает свою строку состояния при разворачивании

Код: Выделить всё

Imports System
Imports System.Windows.Forms

Class WorkingAreaSample
    Inherits Form

    Shared Sub Main()
        Application.Run(New WorkingAreaSample())
    End Sub

    Sub New()
        Dim sbar As New StatusBar()
        sbar.Parent = Me
        sbar.Text = "Text Bar"
        ' MaximumSize = SystemInformation.PrimaryMonitorMaximizedWindowSize
        WindowState = FormWindowState.Maximized
        'TopMost = True
        'Size = SystemInformation.PrimaryMonitorMaximizedWindowSize
    End Sub

End Class