La verdad es que he buscado por todos lados y no encuentro como hacer una instrucción funcional. 

Alguna idea?

    Dim AU As Autoitlib
    Private Sub Shoot_Tick(sender As Object, e As EventArgs) Handles Shoot.Tick
            AU.MouseClick(AU.PixelSearch(158, 54, 158, 54, 14091270))
        End Sub