VBGamer

Try changing your Property Set to Property Let. Also, try the ByVal again. If nothing works, you may have to do this: Public Sub SetSrcRect (Left, Right, Top, Bottom) mvarSrcRect.Left = Left mvarSrcRect.Right = Right mvarSrcRect.Top = Top mvarSrcRect.Bottom = Bottom End Sub HTH