>>646-650
どういうやり方でもいいが、それを関数にまとめようぜ。
Function ScreenToClientRECT(hwnd As HWND, ByRef rc As RECT) As BOOL
    If ScreenToClient(hwnd, ByVal VarPtr(Rect.left)) Then
        ScreenToClientRECT = ScreenToClient(hwnd, ByVal VarPtr(Rect.right))
    End If
End Function