[RESOLVED] Calling sub help

RenderDrawThing2 Heart(NumHeart)
ok when i call this sub I get an error. I dosent tell me what though the program just shuts off. The sub is this

VB Code:

Sub RenderDrawThing2(TileSourcesurf As DirectDrawSurface7)
Dim r As RECT, retVal As Long
            r.Left = 0
            r.Top = 0
            r.Right = 50
            r.Bottom = 50
                'This is where we copy the tile from the source to the destination
                retVal = Mainsurf.BltFast(x * 50 - 50, y * 50 - 50, TileSourcesurf, r, DDBLTFAST_WAIT)
End Sub

there are 5 heart pictures. The numheart specifys which one to draw. If I do this...
RenderDrawThing2 Heart(4)
it works but if I do this
numheart=4
RenderDrawThing2 Heart(numheart)
it dosent...

Please any assistance would be appreciated!

You may want to post this in the Games Forum or ask mods to move it - I think you have a better chance to get answered over there.

nah thats ok, i found out the problem anyway. nothing wrong with the sub call, just something I did stupid.

Soon I will update my game, its coming along quite nicely! :) (more like):D