Sub 08
    VBSCall FindPic(a,b,c,d,"Attachment:\08.bmp",q,x,y)
    If x>a and y>b
        KeyPress 98,1
        a=x+e
        c=a+f
        x=0
        y=0
    Else 
        Gosub 09
    EndIf 
Return 08
Sub 09
    VBSCall FindPic(a,b,c,d,"Attachment:\09.bmp",q,x,y)
    If x>a and y>b
        KeyPress 97,1
        a=x+e
        c=a+f
        x=0
        y=0
    ElseIf c>g
        x=0
        y=0
        n=0
    Else 
        c=c+e
    EndIf 
Return 09