Shoutbox

code:

---

Private Declare Function SystemParametersInfo Lib "user32" _
    Alias "SystemParametersInfoA" (ByVal uAction As Long, _
    ByVal uParam As Long, ByRef lpvParam As RECT, _
    ByVal fuWinIni As Long) As Long
Private Const SPI_GETWORKAREA = 48


Dim wa_info As RECT
Dim wa_wid As Single
Dim wa_hgt As Single

SystemParametersInfo(SPI_GETWORKAREA, 0, wa_info, 0)

---

For the work area, but most of this can be found by googling "vb work space" or such.