unless this is a typo your kick yourself for making a stupid mistake...

Here is the code that is wrong
Code:
    Dim SRect As RECT
    Dim DRect As RECT
    
    With SRect
        .Left = 0
        .Top = 0
        .Bottom = 64
        .Top = 64
    End With
    With DRect
        .Left = 0
        .Top = 0
        .Bottom = 64
        .Top = 64
    End With
Notice anything wrong with it?

it should be:
[code]
Dim SRect As RECT
Dim DRect As RECT

With SRect
.Left = 0
.Top = 0
.Bottom = 64
.Right = 64
End With
With DRect
.Left = 0
.Top = 0
.Bottom = 64
.Right = 64
End With