unless this is a typo your kick yourself for making a stupid mistake...
Here is the code that is wrong
Notice anything wrong with it?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
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




Reply With Quote