[RESOLVED] Calling sub help

[damasterjo]

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

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!