Bele ta ai a screen

é o jeito é passa o codigo que esta esse botao aonde vc clica e aparesce o form2,

Vo passa do form 1 e o form 2 bele

Form1:

  Citar

Imports Tibia

Imports Tibia.Util

Imports Tibia.Objects

Imports Tibia.Constants

Public Class Form1

Public c As Client

Public p As Player

Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load

For Each cl In Client.GetClients

ComboBox1.Items.Add(cl)

Next

End Sub

Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click

Form2.Show()

End Sub

End Class

Form2:

  Citar

Imports Tibia

Imports Tibia.Util

Imports Tibia.Objects

Imports Tibia.Constants

Public Class Form2

Dim c As Client

Dim p As Player

Dim levelspy As Integer = p.Location.Z

Private Sub Form2_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load

c = Form1.ComboBox1.SelectedItem

If c.LoggedIn Then

p = c.GetPlayer

Form1.Hide()

Else

Me.Hide()

MsgBox("Você precisa escolher o seu personagem.")

End If

End Sub

Private Sub CheckBox1_CheckedChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles CheckBox1.CheckedChanged

If CheckBox1.Checked Then

TimerDance.Start()

Else

TimerDance.Stop()

End If

End Sub

Private Sub TimerDance_Tick(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles TimerDance.Tick

p.Turn(Direction.Up)

p.Turn(Direction.Up)

p.Turn(Direction.Down)

p.Turn(Direction.Down)

End Sub

Private Sub EatFood_Tick(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles EatFood.Tick

If c.LoggedIn Then

For Each id As Item In c.Inventory.GetItems

If id.Id = Constants.Items.Food.Apple.Id Then

id.UseOnSelf()

End If

If id.Id = Constants.Items.Food.Banana.Id Then

id.UseOnSelf()

End If

If id.Id = Constants.Items.Food.Blueberry.Id Then

id.UseOnSelf()

End If

If id.Id = Constants.Items.Food.Carrot.Id Then

id.UseOnSelf()

End If

If id.Id = Constants.Items.Food.Cheese.Id Then

id.UseOnSelf()

End If

If id.Id = Constants.Items.Food.Cherry.Id Then

id.UseOnSelf()

End If

If id.Id = Constants.Items.Food.BrownMushroom.Id Then

id.UseOnSelf()

End If

If id.Id = Constants.Items.Food.Coconut.Id Then

id.UseOnSelf()

End If

If id.Id = Constants.Items.Food.Corncob.Id Then

id.UseOnSelf()

End If

If id.Id = Constants.Items.Food.DragonHam.Id Then

id.UseOnSelf()

End If

If id.Id = Constants.Items.Food.Egg.Id Then

id.UseOnSelf()

End If

If id.Id = Constants.Items.Food.Fish.Id Then

id.UseOnSelf()

End If

If id.Id = Constants.Items.Food.Grapes.Id Then

id.UseOnSelf()

End If

If id.Id = Constants.Items.Food.GreenMushroom.Id Then

id.UseOnSelf()

End If

If id.Id = Constants.Items.Food.Ham.Id Then

id.UseOnSelf()

End If

If id.Id = Constants.Items.Food.Meat.Id Then

id.UseOnSelf()

End If

If id.Id = Constants.Items.Food.Mellon.Id Then

id.UseOnSelf()

End If

If id.Id = Constants.Items.Food.Orange.Id Then

id.UseOnSelf()

End If

If id.Id = Constants.Items.Food.Roll.Id Then

id.UseOnSelf()

End If

If id.Id = Constants.Items.Food.Salmon.Id Then

id.UseOnSelf()

End If

If id.Id = Constants.Items.Food.WhiteMushroom.Id Then

id.UseOnSelf()

End If

Next

End If

End Sub

Private Sub CheckBox2_CheckedChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles CheckBox2.CheckedChanged

If CheckBox2.Checked Then

EatFood.Interval = 30000

EatFood.Start()

Else

EatFood.Stop()

End If

End Sub

Private Sub CheckBox3_CheckedChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles CheckBox3.CheckedChanged

If CheckBox3.Checked Then

c.Map.NameSpyOn()

Else

c.Map.NameSpyOff()

End If

End Sub

Private Sub CheckBox4_CheckedChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles CheckBox4.CheckedChanged

If c.LoggedIn = True Then

If CheckBox4.Checked = True Then

p.Light = LightSize.Full

p.LightColor = LightColor.White

Else

p.Light = LightSize.None

p.LightColor = LightColor.None

End If

End If

End Sub

Private Sub ToolStripMenuItem2_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles ToolStripMenuItem2.Click

End Sub

Private Sub ToolStripMenuItem9_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles ToolStripMenuItem9.Click

If levelspy = 14 Then

Else

c.Map.LevelSpyOn(levelspy + 1)

levelspy = levelspy + 1

End If

End Sub

Private Sub ToolStripMenuItem10_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles ToolStripMenuItem10.Click

If levelspy = 0 Or levelspy = 7 Then

Else

c.Map.LevelSpyOn(levelspy - 1)

levelspy = levelspy - 1

End If

End Sub

Private Sub ToolStripMenuItem11_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles ToolStripMenuItem11.Click

c.Map.LevelSpyOff()

levelspy = levelspy

End Sub

Private Sub cmbmont_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles cmbmont.Click

If c.LoggedIn Then

If cmbmont.Text = "Widow Queen" Then

p.MountId = 368

End If

If cmbmont.Text = "Rapid Bird" Then

p.MountId = 369

End If

If cmbmont.Text = "War Bear" Then

p.MountId = 370

End If

If cmbmont.Text = "Black Sheep" Then

p.MountId = 371

End If

If cmbmont.Text = "Midnight Panther" Then

p.MountId = 372

End If

If cmbmont.Text = "Draptor" Then

p.MountId = 373

End If

If cmbmont.Text = "Titanica" Then

p.MountId = 374

End If

If cmbmont.Text = "Tin Lizzard" Then

p.MountId = 375

End If

If cmbmont.Text = "Blazebringer" Then

p.MountId = 376

End If

If cmbmont.Text = "Rapid Boar" Then

p.MountId = 377

End If

If cmbmont.Text = "Stampor" Then

p.MountId = 378

End If

If cmbmont.Text = "Undead Cavebear" Then

p.MountId = 379

End If

If cmbmont.Text = "- Nenhuma -" Then

p.MountId = 0

End If

End If

End Sub

Private Sub ToolStripMenuItem3_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles ToolStripMenuItem3.Click

form3.show()

End Sub

End Class

Tente usar,

Form2.ShowDialog()

Acho que isso pode resolver, abraços

n funfo deixa pa la mano isso vai dar 1 trabalho melhor eu refazer ele todo vlws REP+ , Topico Fechado