Call Plugin.Bkgnd.MoveTo(Hwnd, 364,273)
 Call Plugin.Bkgnd.LeftClick(Hwnd, 364,273)
                Exit Do
        Else
                                        Delay 200
            XY = Plugin.Bkgnd.FindColor(Hwnd, 452,226, 461,234, "0000AC")
            ZB = InStr(XY, "|")
            X = Clng(Left(XY, ZB - 1))
             Y = Clng(Right(XY, Len(XY) - ZB))
                                Delay 200
            If X>0 Then
                                            Delay 200
                Call Plugin.Bkgnd.MoveTo(Hwnd, 442,270)
                 Call Plugin.Bkgnd.LeftClick(Hwnd, 442,270)
                                Exit Do
Else
                                            Delay 200
XY = Plugin.Bkgnd.FindColor(Hwnd, 524,226, 533,234, "0000AC")
ZB = InStr(XY, "|")
X = Clng(Left(XY, ZB - 1)): Y = Clng(Right(XY, Len(XY) - ZB))
        Delay 200
If X>0 Then
Delay 200
Call Plugin.Bkgnd.MoveTo(Hwnd, 511,277)
 Call Plugin.Bkgnd.LeftClick(Hwnd, 511,277)
                Exit Do
Else
Delay 200
XY = Plugin.Bkgnd.FindColor(Hwnd, 589,226, 598,229, "0000AC")
ZB = InStr(XY, "|")
X = Clng(Left(XY, ZB - 1)): Y = Clng(Right(XY, Len(XY) - ZB))
        Delay 200
                                                    If X>0 Then
Delay 200
Call Plugin.Bkgnd.MoveTo(Hwnd, 584,276)
 Call Plugin.Bkgnd.LeftClick(Hwnd, 584,276)
                Exit Do
        Else
                            YC=YC+1
                        If YC=10 Then
Delay 200
XY = Plugin.Bkgnd.FindColor(Hwnd, 769,188, 772,190, "03235A")
ZB = InStr(XY, "|")
X = Clng(Left(XY, ZB - 1)): Y = Clng(Right(XY, Len(XY) - ZB))
        Delay 200
If X>0 Then
 Delay 200
Call Plugin.Bkgnd.MoveTo(Hwnd, 770,189)
 Call Plugin.Bkgnd.LeftClick(Hwnd, 770,189)
                                End If
                            End If
 Delay 200
            Call Plugin.Bkgnd.MoveTo(Hwnd, 850,245)
             Call Plugin.Bkgnd.LeftClick(Hwnd, 850,245)
                                Delay 200
End If
            End If
                                End If
            End If
            Delay 200

XY = Plugin.Bkgnd.FindColor(Hwnd, 386,229, 389,233, "0000AB")

ZB = InStr(XY, "|")

X = Clng(Left(XY, ZB - 1)): Y = Clng(Right(XY, Len(XY) - ZB))

        Delay 200

If X>0 Then

                                        Delay 200

Call Plugin.Bkgnd.MoveTo(Hwnd, 364,273)

 Call Plugin.Bkgnd.LeftClick(Hwnd, 364,273)

                Exit Do

                        End If

                 Loop
            Delay 200
         Do
Delay 200
XY = Plugin.Bkgnd.FindColor(Hwnd, 524,249, 548,261, "32EDEB")
ZB = InStr(XY, "|")
X = Clng(Left(XY, ZB - 1)): Y = Clng(Right(XY, Len(XY) - ZB))
        Delay 200
If X>0 Then
                        Delay 200
Call Plugin.Bkgnd.MoveTo(Hwnd, 544,254)
 Call Plugin.Bkgnd.LeftClick(Hwnd, 544,254)
                Exit Do
        Else
        Delay 200
End If
 Loop
            Delay 200
        JRW=0