Private Declare Function SystemParametersInfo Lib "User32" Alias _
    "SystemParametersInfoA" (ByVal uAction As Long, ByVal uParam As Long, R As _
    Any, ByVal fuWinIni As Long) As Long
 
  Public Type RECT
    Left As Long
    Top As Long
    Right As Long
    Bottom As Long
  End Type
  Private Const SPI_GETWORKAREA = 48
 
  Public Function GetWorkArea(ByRef Rect As RECT) As Boolean
    On Error Resume Next
    Dim RetVal As Long
    Dim Re As RECT
    GetWorkArea = SystemParametersInfo(SPI_GETWORKAREA, 0, Re, 0) <> 0
    Rect = Re
  End Function

Web: http://www.vbtricks.de.vu/

VBTricks.de.vu. Meine Webseite zu VB und anderen Programmiersprachen. Verschiedene fortgeschrittene OCXe und komplette Projekte sind im Sourcecode verf?gbar.