Líderes

Vc cria um Button, Vai ser o Button1, serve para colocar as posições no listbox, ai nele vc bota Dim loc As Tibia.Objects.Location Loc.X = p.Location.X loc.Y = p.Location.Y loc.Z = p.Location.Z ListBox1.Items.Add(loc.X & "," & loc.Y & "," & loc.Z) Depois vc cria outro button, esse vai ser o Button2, vai ativar o Timer Timer1.Enabled = True Crie mais outro Button, esse vai ser o Button3, vai desativar o Timer Timer1.Enabled = False Crie um Timer, vai ser o Timer1, coloque esse codigo Dim myArray() As String = ListBox1.SelectedItem.ToString().Split(",") 'separa os items do ListBox1 If p.IsWalking = False Then 'verifica se o player esta andando c.GetPlayer.GoTo = New Location(CInt(myArray(0)), CInt(myArray(1)), CInt(myArray(2))) 'manda o player para essa posição If p.Location = New Location(CInt(myArray(0)), CInt(myArray(1)), CInt(myArray(2))) Then 'se a posição do player for a que está seleciona no listbox If ListBox1.SelectedIndex >= (ListBox1.Items.Count - 1) Then 'se listbox estiver no fim ListBox1.SelectedIndex = 0 'ira mandar selecionar o primeiro item, fazendo assim um loop Else ListBox1.SelectedIndex = ListBox1.SelectedIndex + 1 'se não estiver no fim, irá pular para o próximo item da lista End If End If End If Ok, agr adicione um ListBox no seu Form, e test