Quote Originally Posted by Edgemeal View Post
dim rct as RECT
GetWindowRect handle, rct

Width = rct.right-rct.left
Height = rct.bottom-rct.top

EDIT Note those dimensions are in Pixels. Also when using BitBlt one normally uses ScaleWidth, ScaleHeight for pic boxes.
It's very strange that rct dimensions below are all returned as 0. I wonder what I may be overlooking.
Code:
        hnd = GetDC(GetActiveWindow)
        GetWindowRect hnd , rct
        Picture1.Width = rct.Right - rct.Left
        Picture1.Height = rct.Bottom - rct.Top