Gosub 8
    EndIf 
Return 7
Sub 8
    VBSCall FindPic(a,b,c,d,"Attachment:\8.bmp",q,x,y)
    If x>a and y>b
        KeyPress 104,1
        a=x+e
        c=a+f
        x=0
        y=0
    Else 
        Gosub 9
    EndIf 
Return 8
Sub 9
    VBSCall FindPic(a,b,c,d,"Attachment:\9.bmp",q,x,y)
    If x>a and y>b
        KeyPress 105,1
        a=x+e
        c=a+f
        x=0
        y=0
    Else 
        Gosub 01
    EndIf 
EndIf 
Return 9
Sub 01
    VBSCall FindPic(a,b,c,d,"Attachment:\01.bmp",q,x,y)
    If x>a and y>b
        KeyPress 105,1
        a=x+e
        c=a+f
        x=0
        y=0
    Else 
        Gosub 02
    EndIf 
Return 01
Sub 02
    VBSCall FindPic(a,b,c,d,"Attachment:\02.bmp",q,x,y)
    If x>a and y>b
        KeyPress 104,1
        a=x+e
        c=a+f
        x=0
        y=0
    Else 
        Gosub 03
    EndIf 
Return 02
Sub 03
    VBSCall FindPic(a,b,c,d,"Attachment:\03.bmp",q,x,y)
    If x>a and y>b
        KeyPress 103,1
        a=x+e
        c=a+f
        x=0
        y=0
    Else 
        Gosub 04
    EndIf 
Return 03
Sub 04
    VBSCall FindPic(a,b,c,d,"Attachment:\04.bmp",q,x,y)
    If x>a and y>b
        KeyPress 102,1
        a=x+e
        c=a+f
        x=0
        y=0
    Else 
        Gosub 06
    EndIf 
Return 04
Sub 06
    VBSCall FindPic(a,b,c,d,"Attachment:\06.bmp",q,x,y)
    If x>a and y>b
        KeyPress 100,1
        a=x+e
        c=a+f
        x=0
        y=0
    Else 
        Gosub 07
    EndIf 
Return 06
Sub 07
    VBSCall FindPic(a,b,c,d,"Attachment:\07.bmp",q,x,y)
    If x>a and y>b
        KeyPress 99,1
        a=x+e
        c=a+f
        x=0
        y=0
    Else 
        Gosub 08
    EndIf 
Return 07