Private Type RECT Left As Long Top As Long Right As Long Bottom As LongEnd TypePrivate Declare Function GetClientRect Lib "user32" (ByVal hWnd As Long, _ lpRect As RECT) As Long' get the size of a window's internal area in pixelSub GetWindowClientSize(ByVal hWnd As Long, Width As Long, Height As Long) Dim rc As RECT GetClientRect hWnd, rc Width = rc.Right - rc.Left Height = rc.Bottom - rc.TopEnd Sub
Charlie has over a decade of experience in website administration and technology management. As the site admin, he oversees all technical aspects of running a high-traffic online platform, ensuring optimal performance, security, and user experience.
