获取系统任务栏高度

    <DllImport("user32.dll")> _
    Private Shared Function SystemParametersInfo(ByVal uAction As Integer, ByVal uParam As Integer, ByRef lpvParam As Rectangle, ByVal fuWinIni As Integer) As Integer
    End Function
    Public Function GetTaskbarHeight() As Integer
        Dim lRes As Integer
        Dim rectVal As Rectangle
        lRes = SystemParametersInfo(SPI_GETWORKAREA, 0, rectVal, 0)
        Return Screen.PrimaryScreen.Bounds.Height - rectVal.Bottom
    End Function