LeftDoubleClick 1
        Delay 10000
    EndIf 
Return 
Sub goto8
    VBSCall FindColorEx(733,280,768,306,pathtree,1,0.6,x,y)
    If x >0 and y>0
        Delay 100
        MoveTo x,y
        Delay 500
        LeftDoubleClick 1
        Delay 10000
    EndIf 
Return