Could somebody help me with this
i just cannot see what i am doing wrong
i have checked everthing many times!!!

Public Function Tile(F As Object, i As Object)
 f is a form
i is the picture box

Dim Wide As Long
Dim High As Long

Wide = i.Width
High = i.Height

Dim y As long
Dim x As Long
For y = 0 To F.ScaleHeight Step High

              For x = 0 To F.ScaleWidth Step Wide
    Call BitBlt(F.hdc, x, y, Wide, High, i.hdc, 0, 0, SRCCOPY)
    Next x
Next y

End Function
--
Mail Me:

Check OUT:
http://www.*-*-*.com/

Hi James:

    Call BitBlt(F.hdc, x, y, Wide, High, i.hdc, 0, 0, SRCCOPY)
<<

Unless you have a DefLng statement in your module, then I suspect
VB is trying to pass the zeros as the default data type (Variant).
Try typecasting them to long and see if the helps, i.e.

    Call BitBlt(F.hdc, x, y, Wide, High, i.hdc, 0&, 0&, SRCCOPY)

Doug.

James

--
Jonathan Wood
SoftCircuits Programming
http://www.softcircuits.com

Still did not work :(
--
Mail Me:

Check OUT:
HTTP://www.toptown.com/hp/james/

Hi James:

I should have spotted this in the first place <g> -- BitBlt is a function,
not a sub.
Therefore you can not "Call" it, but rather must either disregard the
return value,
or assign it to a variable, i.e.

  BitBlt F.hdc, x, y, Wide, High, i.hdc, 0&, 0&, SRCCOPY
Or..
  rtn = BitBlt (F.hdc, x, y, Wide, High, i.hdc, 0&, 0&, SRCCOPY)

Also, I notice in your api declaration that you did not declare  the
function
return type -- add " As Long" to the end of your declaration.

Hope this helps,

Doug.

One thing I see wrong is the missing return value for the function.  I have
seen this cause this message before.

Add the "As Long" to the end of the call so that it expect a long return
value instead of a variant and see what happens.

James,

Declare the function itself As Long.

--
Jonathan Wood
SoftCircuits Programming
http://www.softcircuits.com